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ABSTRACT 

An  analysis  of  two  commercially  available  Speech 
Understanding  Systems  (SUS)  was  conducted.  Each  system  was 
tested  against  various  background  noise  conditions.  Results 
obtained  were  compared  with  current  criteria  for  SUS  applica- 
tion in  aircraft.  Additionally,  since  the  P-3  Orion  aircraft 
is  being  considered  as  a SUS  test  aircraft,  a survey  of  Fleet 
P-3-  pilots  was  conducted.  Their  opinion  was  sought  on  what 
a SUS  equipped  microprocessor  should  be  capable  of  accomplishing 
as  an  aid  to  the  flight  crew. 
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I.  INTRODUCTION 


Recent  years  have  seen  a remarkable  advance  in  aircraft 
technology,  along  with  a corresponding  increase  in  aircraft 
complexity  and  pilot  workload.  Since  a high  pilot  workload 
has  always  been  associated  with  a high  aircraft  accident  rate, 
it  is  most  desirable  to  find  some  means  of  reducing  pilot 
workload  as  much  as  possible. 

One  possible  answer  lies  in  the  area  of  Speech  Understand- 
ing microprocessor  systems.  These  would  allow  the  pilot  of  an 
aircraft  so  equipped  to  verbally  command  a microprocessor 
system  which  in  turn  would  cause  the  aircraft  to  follow  the 
pilot's  instructions,  such  as  a climb  or  descent  to  a specified 
altitude.  The  pilot  might  also  request  Information  from  the 
computer,  such  as  a Maximum  range  profile  or  to  display  the 
appropriate  emergency  checklist  as  required.  Voice  communica- 
tion with  the  computer  would  free  the  pilot  of  the  necessity 
of  keying  in  instructions  as  current  technology  requires. 

Speech  Understanding  Systems  (SUS)  have  experienced  rapid 
advancement  in  recent  years  also,  with  both  government  and 
private  industry  sponsored  programs  being  undertaken. 

Reference  1 focuses  on  the  operational  military  applications 

. 

of  Speech  Understanding  Systems  and  provides  an  overview  of 
the  nontechnical  factors  in  the  military  environment  which  are 
likely  to  affect  the  introduction  of  SUS  capabilities  in 
military  systems. 
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Microprocessor  hobbyists  have  also  developed  systems  not 
only  for  speech  understanding  but  speech  synthesis  as  well. 

Two  such  systems  were  available  at  the  Naval  Postgraduate 
School  through  the  Human  Factors  Engineering  Lab.  Heuristics, 
Inc.  had  developed  a system  called  SPEECHLAB  for  speech 
understanding,  and  Computalker  Consultants  had  developed 
COMPUTALKER  for  speech  synthesis. 

Both  systems  have  advantages  which  make  them  particularly 
applicable  to  aircraft  cockpit  design.  They  are  both  small  in 
physical  size  and  require  less  than  6K  of  RAM  for  their 
controlling  programs.  Vocabulary  size  dictates  the  actual 
amount  of  RAM  required  by  each  system,  with  5K  being  adequate 
for  a 16  word  vocabulary  in  the  SPEECHLAB  system.  The 
COMPUTALKER  system,  as  currently  structured,  allows  the  user 
to  encode  words  or  phrases,  according  to  phonetic  spelling 
rules,  in  up  to  76  characters  at  a time.  Since  the  average 
word  requires  less  than  15  such  characters,  phrases  of 
approximately  four  words  could  easily  be  constructed.  The 
main  advantage  of  the  COMPUTALKER  system  is  that  many  such 
phrases  could  be  stored  in  available  memory,  loaded  as  required 
into  the  COMPUTALKER  input  buffer  area,  and  quickly  output  as 
recognizable  speech.  This  eliminates  the  requirement  for  a 
complicated  algorithm  to  assemble  prestored  words  into  phrases, 
thus  saving  valuable  memory  area.  The  current  COMPUTALKER 
input  buffer  requires  approximately  2^K  of  memory  for  encoding 
the  76  characters.  Both  systems  are  relatively  inexpensive, 
with  current  models  available  for  under  $300  in  kit  form. 

\ftef.  2 and  3) 


8 


This  study  was  undertaken  to  determine  the  performance  of 
each  system  as  well  as  the  possibility  of  incorporation  in  an 
aircraft  cockpit  control  system.  Specific  goals  were: 

1)  Determine  response  time  and  accuracy  of  SPEECHLAB  under 
low  background  noise  level  conditions. 

2)  Determine  the  recognizability  of  COMPUTALKER  under  low 
background  noise  conditions. 

3)  Repeating  goals  l)  and  2)  with  varying  levels  of  back- 
ground noise  intensity  to  determine  the  limiting  tolerance 
of  each  system  to  background  interference. 

Current  studies  being  carried  on  by  the  Navy  indicate  the 
possible  use  of  the  P-3  Orion  aircraft  as  a test  bed  for  voice 
controlled  cockpit  systems  [Ref.  4] . With  this  in  mind,  a 
survey  of  Fleet  P-3  pilots  was  conducted  to  determine  their 
reaction  of  the  possible  incorporation  of  such  a voice 
controlled  system  in  the  P-3.  The  survey  questions  used  are 
listed  in  Appendix  C.  The  answers  to  the  questions  are 
discussed  in  the  Results  and  Conclusions  section  of  this  report. 


II.  DESCRIPTION  OF  APPARATUS 


A.  SPEECHLAB 

The  SPEECHLAB  hardware,  manufactured  by  Hueristics,  Inc., 
Los  Altos,  California,  is  compatible  with  the  8080  micro- 
processor developed  by  Intel  and  employs  the  S100  bus  [FiE.  3- 

Audio  input  is  amplified  and  passed  through  three  band 
pass  filters  encompassing  the  range  from  150  to  900  Hz,  900  Hz 
to  2.2  KHz,  and  2.2  to  5 KHz.  These  ranges  roughly  correspond 
to  the  first  three  resonances  of  the  human  vocal  tract.  A 
zero-crossing  detector  generates  a voltage  proportional  to  the 
number  of  times  the  raw  waveform  crosses  the  rest  level  in  a 
given  period  of  time.  The  signal  is  then  passed  to  a six-bit 
A/D  converter.  The  output  of  this  A/D  converter  is  fed 
directly  onto  the  computer  data  bus. 

The  controlling  software  programs  utilized  in  this  experi- 
ment were  taken  from  the  manual  supplied  with  the  SPEECHLAB 
board  and  modified  for  use  on  the  Human  Factor  Engineering 
Labs'  8080  microprocessor.  Investigations  conducted  prior  to 
commencement  of  the  experiment  showed  the  algorithm  which  used 
Euclidian  distance  measure  to  be  the  most  accurate  of  the 
programs  in  the  manual.  Of  the  most  importance  in  this  parti- 
cular program  was  the  variable  S,  which  represented  the  number 
of  divisions  into  which  the  speech  utterance  would  divided 
in  order  to  be  analyzed  by  the  program.  This  parameter,  set  at 
64  as  provided,  was  shown  to  have  the  greatest  effect  on 
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Figure  1.  SPEECHLAB  Hardware  Board 


response  time.  Response  time  was  measured  from  the  closing 
of  the  speech  window  to  the  time  the  machine  began  to  type 
the  recognition  message  on  the  teletype.  The  speech  window 
width  as  set  by  the  algorithm  was  approximately  2.5  sec  in 
duration.  This  is  a variable  and  could  be  changed  by  the 
operator.  The  beginning  of  the  speech  window  was  signaled  by 
a beep  at  the  microphone  in  use.  A similar  beep  signaled  the 
close  of  the  window  [Ref.  5].  The  Basic  and  controlling 
programs  used  by  speech  lab  are  included  as  Appendix  A. 

B.  COMPUTALKER 

The  COMPUTALKER  hardware  was  developed  by  Computalker 
Consultants,  of  Santa  Monica,  California  [Vig  2] . 

The  COMPUTALKER  board  is  controlled  by  CSR1,  a software 
program  provided  with  the  system.  CSR1  is  a phoneme-input 
speech  synthesizer  program.  It  contains  definitions  in  the 
form  of  various  table  entries  for  55  different  input  symbols 
which  represent  the  phonemes  of  the  English  language  along  with 
several  punctuation  marks.  C3R1  accepts  a phonetic  input  string 
consisting  of  these  phonemes  and  punctuation  symbols  and  decimal 
digits  which  specify  vowel  stress  levels.  This  input  string  is 
parsed  to  fill  out  a phonetic  feature  matrix  for  the  desired 
synthetic  phrase.  A set  of  phonetic  structure  rules  scans  the 
matrix  to  look  for  feature  patterns  and  combinations  which 
must  be  adjusted  to  conform  to  English  pronunciation.  After 
these  adjustments,  a parameter  generator  algorithm  scans  the 
matrix  and  produces  the  control  parameters  needed  to  operate 
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the  COMPUTALKER  Synthesizer  [ Ref  Q.  The  COMPUTALKER  board 
is  shown  in  Figure  2.  The  CSR1  program  is  included  as 
Appendix  B. 

C.  SOUND  LEVEL  METER 

The  sound  level  meter  used  during  the  experiment  was  the 
General  Radio  Corporation,  Type  1565-B.  The  range  of  the 
instrument  was  from  40  dB  to  140  dB,  referenced  to  20  micro 
Newtons  per  square  meter.  Unless  otherwise  noted,  all  sound 
pressure  level  measurements  in  this  experiment  were  made  with 
this  sound  level  meter.  The  meter  also  provided  for  the  use 
of  three  different  weighting  levels.  A,  B,  or  C,  which  conform 
to  ANSI  SI. 4-1971  Type  2 and  IEC  123,1961  specifications. 
Weighting  C was  chosen  for  use  in  this  experiment  as  it 
provided  the  flatter  response  curve  over  a wider  range  of 
frequencies  than  either  of  the  other  weightings  [Fig.  J], 

D.  MAICO  AUDIOMETER 

The  MAICO  Dual  Channel  Research  and  Diagnostic  Audiometer, 
Model  MA-24B,  was  used  to  provide  the  background  noise  and  pure 
tones  used  during  the  course  of  this  investigation.  The  Hearing 
Threshold  Level  in  each  channel  could  be  controlled  accurately 
through  the  range  from  -3  dB  to  112  dB.  This  equated  to  a 
range  of  from  47  dB  to  162  dB  when  referenced  to  20  micro 
Newtons  per  square  meter  [jig. 

E.  MICROPROCESSOR 

The  microprocessor  used  for  the  experiments  was  built  from 
a kit  manufactured  by  IMSAI  Corporation.  The  basic  kit  utilizes 
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Figure  3.  Sound  Level  Meter 


the  INTEL  8080  microprocessor  chip  and  standard  INTEL  8080 
instructions.  An  IMSAI  Multiple  Input/Output  board  was  used 
for  input/output.  Memory  available  Included  4K  of  PROM  and 


32K  of  RAM.  Sufficient  space  was  available  for  up  to  32K 
additional  memory,  assuming  the  same  type  of  memory  packaging. 
Figure  5 shows  the  8080  microprocessor  with  the  SPEECHLAB, 
COMPUTALKER,  memory  and  I/O  boards  installed. 

Figure  6 shows  the  Audiometer  and  Microprocessor  set  up 
outside  the  test  booth.  The  microprocessor  was  controlled  with 
a standard  teletype  keyboard.  Figure  7 shows  the  interior  of 
the  test  booth.  All  inputs  to  the  booth  were  channeled  through 
the  patch  box  on  the  right  of  the  table.  The  microphone  stand 
had  full  freedom  of  motion  which  allowed  the  subjects  to 
position  the  microphone  within  one  inch  of  their  lips  while 
speaking.  The  speakers  used  to  introduce  noise,  tones  and  the 
COMPUTALKER  speech  are  located  in  the  rear  of  the  booth. 
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III.  EXPERIMENTAL  PROCEDURE 

All  experiments  were  conducted  at  the  Human  Factors 
Engineering  Laboratory  at  the  Naval  Postgraduate  School. 

A.  SPEECHLAB  TESTING 

For  the  voice  recognition  tests,  each  subject  trained  the 
SPEECHLAB  unit  on  the  ten  word  vocabulary  selected  from  Ref.  1. 
No  background  noise  was  introduced  into  the  booth  in  which  the 
subjects  operated  from.  Noise  level  in  the  booth  under  these 
conditions  was  measured  at  40  dB  using  the  sound  level  meter. 
After  training,  the  performance  mode  of  the  system  was  entered. 
Background  noise  level  remained  at  40  dB  for  the  tests.  The 
subject  was  required  to  read  through  the  word  list,  in  order, 
five  times,  thus  obtaining  fifty  samples  of  speech  utterances 
from  each  subject  per  test.  Each  test  was  repeated  three  times, 
with  the  S parameter  of  the  SPEECHLAB  algorithm  set  at  64,  32, 
and  16.  This  was  done  to  test  the  performance  of  the  algorithm 
with  varying  sample  sizes.  Typical  results  are  shown  in 
Figure  8. 

Next,  various  background  noise  levels  were  introduced  in 
the  booth  to  determine  system  response  to  noise.  The  subjects 

followed  the  3ame  procedures  as  in  the  no-noise  tests.  The  S 
parameter  remained  set  at  64  throughout  the  tests  as  this  was 
determined  to  be  the  most  accurate  mode  for  SPEECHLAB.  Back- 
ground noise  level  was  raised  in  5 dB  increments  from  60  dB  to 


DATE  17  Aug  78  BACKGROUND  NOISE  40  dB 

SUBJECT  Buresh  FREQUENCY  ~~ 

SPEECHLAB  X S 64  TIME  (AVERAGE)  27  sec 

COMPUTALKER  

PROGRAM  1 


WORD  LIST 

1)  ALTITUDE 

2)  SPEED 

3)  HEADING 

4)  POSITION 

5)  TACAN 

Figure  8. 


itl  = 0.86 

50 


Total 

6)  VOR 

7)  IIS 

8)  GLIDES LOPE 

9)  CLIMB 
0)  DESCEND 

Typical  Results  of  SPEECHLAB  Tests 
(with  low  background  noise) 
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80  dB.  However,  in  no  test  was  the  SPEECHLAB  system  able  to 
accomodate  more  than  74  dB.  Typical  results  for  this  series 
of  tests  are  shown  in  Figure  9. 

To  test  the  effect  of  frequency  on  the  SPEECHLAB  system, 
pure  tones  ranging  from  4000  Hz  to  8000  Hz  were  induced  and 
the  tests  repeated  by  the  subjects.  Incremental  tone  steps 
were  1000  Hz.  Typical  test  results  are  shown  in  Fig.  10.  A 
summary  of  results  from  the  SPEECHLAB  tests  is  presented  in 
Fig.  11. 

B.  COMPUTALKER  TESTING 

To  test  the  accuracy  with  which  COMPUTALKER  produced  speech, 
the  same  word  list  used  for  the  SPEECHLAB  tests  was  prepared 
for  use  with  COMPUTALKER.  Each  word  on  the  list  was  rearranged 
according  to  the  phonetic  spelling  rules  used  by  COMPUTALKER. 
Various  combinations  of  phonetic  spellings  were  tried  until  an 
acceptable  utterance  was  produced.  This  list  of  words,  which 
were  now  optimized  to  the  principal  researcher,  was  then 
presented  to  each  of  the  subjects.  Re-optimization,  where 
necessary,  was  done  until  each  subject  readily  recognized  each 
word  on  the  list.  The  word  list  and  final  phonetic  spelling 


was  as 

follows : 

(1) 

ALTITUDE  --  AH2LTTIYTUX3D 

(2) 

SPEED  --  SHPQIY3DX 

(3) 

HEADING  --  HHEHDIYNGX 

(4) 

POSITION  --  P0HSIH1SSIY0HN 

(5) 

TACAN  --  TAE3QKAAN 
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DATE  11  Aug  70 


SUBJECT 


Fifer 


BACKGROUND  NOISE  65  dB 
FREQUENCY  -- 


SPEECHLAB 


s 


TIME  (AVERAGE)  26  sec 


COMPUTALKER 

PROGRAM 


WORD  LIST 

1)  ALTITUDE 

2)  SPEED 

3)  HEADING 

4)  POSITION 
5.)  TACAN 


Total 


B§  = 0-21* 


Figure  9. 


6)  VOR 

7)  ILS 

8)  GLIDES  LOPE 

9)  CLIMB 
0)  DESCEND 

Typical  Results  of  SPEECHLAB  Tests 
(with  various  noise  levels) 
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BACKGROUND  NOISE  75  dB 
FREQUENCY  4000  Hz 
TIME  (AVERAGE)  28  sec 
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DATE  22  Aug  78 
SUBJECT  Buresh 
SPEECHLAB  X S 64 

COMPUTALKER  

PROGRAM  1 


1 

2 

,3 

4 

5 

6 

7 

8 

9 

■Q.  ... 

1 

3 

l 

1 

.2 

1 

4 

3 

4 

1 

4 

2 

3 

5 

1 

4 

6 

1 

4 

• 

7 

5 

8 

» 

5 

9 

1 

4 

0 

5 

WORD  LIST 

1)  ALTITUDE 

2)  SPEED 

3)  HEADING 

4)  POSITION 
5.)  TACAN 

Figure  10. 
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Total 


55  ' °'82 


6)  VOR 

7)  ILS 

8)  GLIDES LOPE 

9)  CLIMB 
0)  DESCEND 

Typical  Results  of  SPEECHLAB  Tests 
(with  various  tone  levels) 


(1)  With  nc  noise  input  to  the  test  booth,  the 
noise  level  inside  the  booth  was  measured  to 
be  40  dB. 

s 

(2)  Background  noise  was  broadband  white  noi3e. 

(3)  Pure  tones  were  input  at  75  dB. 


Figure  11.  Summary  of  Results  from  SPEECHLAB  Testing 


26 


(6)  VOR  --  WIY1,  0H1UW,  REH1R 

(7)  ILS  --  AY1,  ELL,  SS 

(8)  GLIDESLOPE  --  GXLAY3DSLUHP 

(9)  CLIMB  --  KLAY1MB 
(0)  DESCEND  --  DIYSEHND 

The  phonetic  spelling  rules  used  by  COMPUTALKER  are  shown  in 
Fig.  12. 
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Consonants 


Vowels  Punctuation 


p 

P 

pie 

IY 

1 

heed 

space 

word  boundary 

T 

t 

tie 

IH 

l 

hid 

t 

pause/s i lence 

K 

k 

key 

EY 

ei 

hayed 

. 

fal ling  pi tch 

B 

b 

by 

EH 

e 

head 

? 

rising  pi tch 

D 

d 

die 

AE 

as. 

had 

return 

end  of  input 

G 

9 

guy 

AA 

a 

hod 

M 

in 

my 

AO 

0 

hawed 

N 

71 

nigh 

OW 

QU 

hoed 

Stress  Marks 

NX 

V 

hanq 

UH 

O 

hood 

F 

f 

fie* 

UW 

(LW 

who' d 

0 

no  stress 

V 

V 

vie 

ER 

dr 

herd 

1 

primary  (max)  stress 

TH 

e 

th  i gh 

AH 

A 

Hudd 

2 

secondary  stress 

DH 

3 

thy 

AY 

Si. 

hide 

3 

tertiary  stress 

S 

s 

sigh 

AW 

a w 

how 

it 

etc. 

Z 

z 

zoo 

OY 

01 

boy 

5 

SH 

/ 

shy 

AX 

a 

about 

> 5 

no  stress 

ZH 

3 

vijjjon 

IX 

+ 

Davi  d 

L 

t 

lie 

OH 

0 

core 

W 

w 

we 

'JX 

u 

too 

R 

r 

rye 

Several 

other  symbols  are  used 

Y 

J 

you 

Internally  by  certain  rules. 

HH 

h 

high 

These  may  also  be  used  in  the 

CH 

tf 

chime 

input  string. 

JH 

V 

j i ve 

WH 

wh 

why 

KX 

coo  (K  before  back  vowel) 

EL 

i 

battle 

GX 

goo  (G  before  back  vowel) 

EH 

>w 

bottom 

RX 

ca_rd  (R  after  a vowel) 

EN 

7J 

button 

LX 

kin.  (L  after  a vowel) 

Q 

? 

(glottal 

stop) 

DX 

pitj  (T  between  vowels) 

YX 

diphthong  ending 

WX 

diphthong  ending 

Table  1 CSR1  Phonetic  Input  Symbols 


Stress  marks  may  be  placed  on  any  vowe 1 in  the  form  of  a following 
digit  from  5 (weakest  stated  stress)  to  1 (maximum  stress).  Any  stress 
digit  gieotcr  than  5 will  oc  ignored.  Ending  an  input  string  with  a 
period  or  question  mark  has  the  effect  of  changing  the  ending  pitch, 
falling  or  rising,  respectively.  A contra  has  no  effect  on  the  pitch, 
but  only  introduces  a pause  in  the  pronunciation. 


Figure  12.  COMPUTALKER  Phonetic  Spelling  Rules 
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IV.  RESULTS  AND  CONCLUSIONS 


A.  SPEECHLAB 

Results  from  the  SPEECHLAB  tests  showed  that  while  the 
performance  approximated  what  the  manufacturers  claim,  i.e., 
acceptability  percentage  in  the  high  nineties,  any  significant 
amount  of  background  noise  causes  a marked  deterioration  in 
its  performance.  Above  74  dB,  the  algorithm  would  not  accept 
speech  utterances  at  all,  rather  signaling  ’’SPEECH  OUT  OF 
WINDOW",  Indicating  that  it  thought  the  noise  was  the  speech 
utterance . 

An  attempt  was  made  to  improve  the  performance  of  the 
algorithm  by  training  it  with  the  background  noise  set  at  62  dB. 
While  this  did  improve  the  recognition  rate  of  the  program  with 
the  background  noise  level  at  60  and  65  dB,  performance  again 
fell  off  rapidly  at  70  dB  and  at  74  dB  the  algorithm  again 
could  not  distinguish  the  speech  from  the  background  noise. 

A noise  cancelling  boom  mike  would  almost  certainly  have 
improved  the  performance  of  the  system,  as  would  the  wearing  of 
an  oxygen  mask.  However,  as  noted  by  previous  researchers 
[Ref.  f ],  the  background  noises  Induced  by  heavy  breathing 
under  moments  of  stress  and  high  G Interfere  greatly  with  a 
speech  recognition  system's  performance. 

The  response  time  for  the  most  accurate  algorithm,  i.e., 
with  S set  at  64,  was  judged  to  be  unacceptable,  averaging  out 
to  27  sec  in  all  tests.  However,  with  the  S parameter  set  at 
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16,  the  average  response  time  was  9 sec,  a slightly  high  but 
possibly  acceptable  time  Qtef.  5] . The  system  accuracy  in 
this  case  dropped  to  Just  slightly  more  than  50/6,  clearly 
unacceptable . 

Obviously,  the  algorithm  provided  with  the  SPEECHLAB 
hardware  requires  a great  deal  of  improvement.  If  this  is  not 
possible,  and  none  of  the  improvements  suggested  by  the 
SPEECHLAB  manual  [Ref.  9j  produce  noticeable  improvement,  a 
completely  new  algorithm  must  be  found  before  the  SPEECHLAB 
system  could  be  considered  acceptable  for  military  use. 

Further  testing  should  also  include  vibration  levels  of 
various  intensities  to  simulate  aircraft  motion. 

Two  observations  made  during  the  course  of  the  experiment 
suggest,  however,  that  the  low  recognition  rates  obtained  may 
not  be  due  entirely  to  the  algorithms  used. 

First,  it  was  noted  that  as  a subject  became  more  used  to 
"talking"  to  the  machine,  a slight  Improvement  in  the  algorithm's 
recognition  rate  was  seen.  It  appears  that  the  subject  began 
to  pronounce  the  words  on  the  list  in  a more  consistent  manner 
after  numerous  repetitions.  This  was  especially  true  when  the 
subject  was  told  that  a successful  recognition  had  been  achieved. 
This  appeared  to  reinforce  in  the  subject's  mind  the  particular 
pronunciation  which  produces  the  successful  recognition.  If 
the  subjects  had  been  trained  in  this  manner  prior  to  commence- 
ment of  the  testing,  the  initially  lower  recognition  rates 
might  have  been  avoided.  It  would  seem  therefore  that  operator 
training  would  play  a significant  role  in  any  successful  voice 
recognition  system. 
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The  second  observation  concerned  the  day-to-day  changes 
that  occur  in  the  human  voice.  On  one  occasion,  a subject 
reported  for  testing  with  a cold  which  had  changed  the  tone  of 
his  voice  considerably.  Although  this  particular  subject  had 
enjoyed  one  of  the  highest  recognition  rates  of  the  group  (in 
the  middle  nineties),  on  this  particular  day  his  recognition 
rate  fell  to  Just  below  80^.  No  other  subject  was  tested  with 
any  other  ailment,  but  it  is  felt  that  such  things  as  a sore 
throat,  asthma  or  other  allergic  reactions  which  changed  the 
tone  of  the  voice  would  cause  a similar  drop  in  the  system 
performs  nee . 

The  obvious  conclusion  to  be  drawn  here  is  that  some  means 
must  be  developed,  whether  through  software  programming  or 
hardware  devices,  to  account  for  possible  daily  changes  in  an 
operator's  voice  characteristics. 

Several  attempts  were  made  to  train  the  SPEECHLAB  algorithm 
with  one  subject  and  test  it  with  another  person  speaking.  The 
results  were  so  poor  that,  in  general,  it  appears  impractical 
with  the  present  system  to  attempt  to  use  it  in  such  a manner. 
As  presently  set  up,  the  best  method  to  use  the  system  with 
more  than  one  person  would  be  to  train  the  algorithm  with  each 
person's  voice.  This  would,  of  course,  require  more  storage 
space  and  greatly  increase  recognition  time. 

B.  COMPUTALKER 

The  results  from  the  COMPUTALKER  testing  were  unique  in 
that  after  initial  presentation  of  the  word  list,  all  subjects 
scored  lOOJf  on  all  tests.  Although  the  initial  recognition 
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rate  during  the  optimization  testing  was  very  low  (20$6),  the 
subjects  rapidly  related  the  machine  speech  with  the  proper 
word.  Changing  background  noises  and  tone  had  almost  no 
effect  on  the  tests.  The  only  area  of  difficulty  encountered 
was  due  to  the  nature  of  the  white  noise  introduced  to  the 
testing  chamber.  The  sound  produced  by  the  noise  is  best 
described  as  a hiss,  which  is  very  similar  to  the  letter  "S" 
as  pronounced  by  COMPUTALKER.  This  had  the  effect  of  masking 
the  letter  "S"  when  the  machine  spoke  the  word  "ILS".  All 
subjects,  however,  were  able  to  hear  the  "IL"  part  of  the  word 
with  no  trouble  and  correctly  deduced  the  word  to  be  "ILS". 

At  this  point  in  the  experiment,  the  testing  procedure  was 
modified  since  the  vocabulary  under  consideration  was  obviously 
too  small,  allowing  the  subjects  to  easily  determine  the 
correct  choice  by  process  of  elimination.  Another  ten  words 
were  added  to  the  vocabulary  and  optimized  as  before.  The 
additional  words  and  their  phonetic  spelling  were  as  follows: 


(11) 

ABOVE  - 

- AHBAHOHV 

(12) 

BELOW  - 

- BIY3L0W2 

(13) 

CHECK  - 

- CHEHK 

(14) 

DOWN  -- 

DAOWHN 

(15) 

ENGINE 

--  EHNJHIHN 

(16) 

FIRE  — 

FQAY1R 

(IT) 

GEAR  -- 

GEHER 

(18) 

NAVIGATION  --  NAE1VEHGEY1S0HN 

(19) 

PRESSURE  — PREHSUHR 

(20) 

SOME  -- 

SQEMN 
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Various  combinations  of  ten  words  from  the  twenty  word 
vocabulary  were  chosen  and  presented  to  the  subjects.  Although 
results  were  expected  to  be  poor,  the  opposite  was  true.  Only 


one  subject  missed  one  word.  However,  all  expressed  the 
opinion  that  they  had  had  a much  more  difficult  time  in 
determining  the  correct  word.  This  would  infer  that  they 
thought  about  their  choice  much  longer  than  required  before. 
This  is  obviously  undesirable,  as  a pilot  can  usually  ill 
afford  to  have  his  attention  drawn  away  from  the  task  of 
flying  his  aircraft.  One  solution  to  this  problem  would  be  to 
limit  the  machine's  vocabulary  to  twenty  words  or  less,  but 
this  might  not  be  feasible  in  all  situations. 

One  method  of  increasing  the  vocabulary  size  that  could  be 
used  with  the  COMPUTALKER  system  would  be  to  improve  the 
quality  of  the  sounds  produced  by  the  governing  phonetic 
spelling  rules.  It  was  noted  throughout  the  course  of  the 
experiments  that  the  sounds  produced  by  COMPUTALKER  were  not 
quite  what  was  expected  from  the  description  in  the  phonetic 
rules  ^ig.  if].  Most  sounds  were  close  enough  that  the 
subjects  readily  adjusted  to  them  with  little  or  no  difficulty. 
Some  letters  of  the  alphabet  were  difficult  to  recognize,  as 
was  noted  previously  about  the  letter  "S",  the  sound  in  this 
case  being  more  of  a hiss  than  the  "es"  sound  normally 
associated  with  the  letter.  Also,  COMPUTALKER  produced  soft 
sounds  much  more  readily  than  hard  ones,  most  notably  at  the 
end  of  a word.  For  example,  the  word  "CHECK"  is  pronounced 
more  like  "cheg"  by  the  system.  Although  this  was  a minor 
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problem  In  this  instance,  incorporation  of  the  word  "CHECK" 
in  certain  phrases  may  lead  to  ambiguous  meanings  due  to  its 
mispronunciation. 

Correcting  the  sounds  produced  by  the  phonetic  rules  used 
by  the  system  would  involve  changing  the  computer  code  which 
controls  the  COMPUTALKER  hardware.  These  rules  are  contained 
in  Sections  2 through  6 of  the  CSR1  Source  listing.  Due  to 
time  constraints,  no  such  improvements  were  attempted,  but  are 
considered  to  be  necessary  to  upgrade  the  quality  of  the 
COMPUTALKER  system. 

C . SURVEY 

The  general  results  of  the  survey,  while  not  conclusive, 
indicate  that  most  of  the  pilots  would  prefer  the  computer  be 
used  to  calculate  such  things  as  Weight  and  Balance,  Proven 
Limit  of  Endurance  profiles  (PLE),  Maximum  Range  profiles,  etc. 

Many  felt  it  would  be  advantageous  to  have  the  computer  warn 
the  pilots  of  impending  failures  of  systems  or  emergencies, 
such  as  slowly  falling  oil  pressure,  increasing  temperatures 
in  engine  sections,  etc.  Several  pilots  favored  a verbal 
warning  from  the  computer,  in  addition  to  the  normal  indica- 
tions, in  the  case  of  an  approach  to  landing  with  the  gear 
still  up. 

Few  pilots  indicated  a willingness  to  allow  the  computer 
to  actually  take  physical  control  of  the  aircraft  under  any 
circumstance,  although  a few  would  have  allowed  the  computer 
to  do  so  with  the  pilot's  explicit  approval.  The  latter  would 
allow  the  computer  to  suggest  an  appropriate  course  of  action 
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and,  if  it  met  with  the  pilot's  approval,  give  permission  to 
carry  out  the  procedure.  Interestingly,  many  pilots  expressed 
concern  that  a computer  system  of  this  type  would  be  detrimental 
to  the  morale  of  the  Flight  Engineer  and  cause  complacency 
among  the  pilots  themselves.  A few  pilots  were  even  of  the 
opinion  that  the  autopilot,  while  of  great  benefit  on  long 
transit  flights,  was  causing  complacency  and  reduced  flying 

■ 

skills  among  some  pilots. 

It  would  seem  from  the  general  reaction  of  most  pilots 
that  the  Initial  flight  testing  and  operational  experience  of 
a SUS  be  conducted  at  the  TACCO  and  Navigator  stations  aboard 
the  aircraft,  as  indicated  by  Ref.  4. 


1 


APPENDIX  A 

SPEECHLAB  COMPUTER  PROGRAMS 

The  controlling  program  for  SPEECHLAB  is  written  in  BASIC. 
The  SPEECH  Driver  requires  modifications  be  made  to  the  BASIC 
system  being  used.  In  order  to  save  space,  Hueristlcs,  Inc., 
decided  to  use  the  Palo  Alto  TINY  BASIC  system,  developed  by 
Dr.  LI -Chen  Wang.  TINY  BASIC  handles  only  interger  numbers, 
but  this  is  not  a major  problem  in  the  SPEECHLAB  program. 

TINY  BASIC,  the  required  modifications  for  the  SPEECHLAB 
Driver,  and  the  SPEECHLAB  controlling  programs  are  reproduced 
on  the  following  pages  with  the  permission  of  Hueristlcs,  Inc. 


TINY  BASIC  FOR  INTEL  8080 
VERSION  1.0 
BY  LI -CHEN  WANG 
10  JUNE,  1976 
0COPYLEFT 

ALL  WRONGS  RESERVED 


***  ZERO  PAGE  SUBROUTINES  •** 

THE  8380  INSTRUCTION  SET  LETS  YOU  HAVE  8 ROUTINES  IN  LOW 
MEMORY  THAT  MAY  BE  CALLED  BY  RST  N,  N BEING  0 THROUGH  7. 
THIS  IS  A ONE  BYTE  INSTRUCTION  AND  HAS  THE  SAME  POWER  AS 
THE  THREE  BYTE  INSTRUCTION  CALL  LLHH.  TINY  BASIC  WILL 
USE  RST  0 AS  START  OR  RESTART  AND  RST  1 THROUGH  RST  7 FOR 
THE  SEVEN  MOST  FREQUENTLY  USED  SUBROUTINES. 

TV/O  OTHER  SUBROUTINES  ( CRLF  AND  TSTNUM)  ARE  ALSO  IN  THIS 
SECTION.  THEY  CAN  BE  REACHED  ONLY  BY  3 -BYTE  CALLS. 


* 

ORG 

X ’ 0000’ 

0000 

F3 

START 

DI 

* 

•**  START/RESTART  *** 

0001 

310320  3000 

LODI 

SP , STACK 

INITIALIZE  THE  STACK 

0004 

C3EA00 

JMP 

STi 

GO  TO  THE  MAIN  SECTION 

0007 

m 

4C 

CHAR 

•L’ 

0008 

E3 

XCH 

HL,( SP) 

*•*  TSTC  OR  RST  1 *** 

0009 

EF 

IGNBLK 

IGNORE  BLANKS  AND 

000A 

BE 

CMP 

M 

TEST  CHARACTER 

0000 

m 

C 3 6 800 

JMP 

TCI 

REST  OF  THIS  IS  AT  TCI 

000E 

« 

3E0D 

CRLF 

LODI 

A.0CR 

***  CRLF  *** 

0010 

F5 

PUSH 

AF 

**«  OUTC  OR  RST  2 

0011 

3A0003 

LD 

A.OCSW 

PRINT  CHARACTER  ONLY 

0014 

B7 

IOR 

A 

IF  OCSW  SWITCH  IS  ON 

0015 

C31A07 

JMP 

OC2 

REST  OF  THIS  IS  AT  OC2 

• 

0018 

CD5504 

CALL 

EXPR2 

**•  EX PR  OR  RST  3 *•* 

001B 

E5 

PUSH 

HL 

EVALUATE  AN  LXPRESION 

001C 

C 3 1 104 

JMP 

EXPR1 

REST  OF  IT  IS  AT  EXPR1 

001 F 
0 

57 

CHAR 

•W' 

0020 

7C 

LOD 

A , H 

COMP  OR  RST  4 

0021 

BA 

CMP 

D 

COMPARE  HL  WITH  DE 

0022 

C0 

RET 

N3 

PETURN  CORRECT  C AND 

002  3 

7D 

LOD 

A , L 

Z FLAGS 

002  4 

BB 

CMP 

E 

BUT  OLD  A IS  LOST 

002  5 

C9 

RET 

U 

0026 

0 

4 14  E 

CHAR 

•AN’ 

002  8 

1A 

SSI 

LD 

A,<  DE) 

**•  IGNBLK/RST  5 **• 

0029 

FE20 

CMPI 

t • 

IGNORE  BLANKS 

002B 

C0 

RET 

NZ 

IN  TEXT  (WHERE  DE->) 

002C 

13 

INC 

DE 

AND  RETURN  THE  FIRST 

002D 

0 

C 3 2 800 

JMP 

SSI 

NON-BLANK  CHAR.  IN  A 

0020 

FI 

POP 

AF 

***  FINISH/RST  6 

01 
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0031 

CD9105 

CALL 

FIN 

CHECK  END  OF  COMMAND 

0034 

C3A405 

JMP 

QWHAT 

PRINT  "WHAT 7"  IF  WRONG 

0037 

01 

47 

CHAR 

•G' 

0038 

E? 

1GNBLK 

***  TSTV  OR  RST  7 *** 

0039 

1)640 

SUBI 

'S' 

TEST  VARIABLES 

003B 

D8 

RET 

C 

Ci NOT  A VARIABLE 

003C 

C25800 

JMP 

NZ , TVl 

NOT  ”@H  ARRAY 

003F 

13 

INC 

DE 

IT  IS  THE  "0"  ARRAY 

0040 

CDFB04 

CALL 

FARN 

@ SHOULD  BE  FOLLOWED 

004  3 

29 

ADD 

HL.HL 

BY  (EXPR)  AS  ITS  INDEX 

0044 

DA9F00 

JMP 

C ,QHOW 

IS  INDEX  TOO  EIG? 

004  7 

D5 

POSH 

DE 

WILL  IT  OVERWRITE 

004  8 

EB 

XCH 

HL,DE 

TEXT? 

004  9 

CD3D05 

CALL 

SIZE 

FIND  SIZE  OF  FREE 

004  C 

E7 

COMP 

AND  CHECK  THAT 

004D 

DAD 00 5 

JMP 

C , ASORRY 

IF  SO,  SAY  "SORRY" 

0050 

21001F 

@000 

LODI 

HL , VARBGN 

IF  NOT,  GET  ADDRESS 

0053 

CD6005 

CALL 

SUBDE 

OF  Q(EXPR)  AND  POT  IT 

0056 

D1 

POP 

DE 

IN  HL 

0057 

C9 

RET 

U 

C FLAG  IS  CLEARED 

0058 

FE1B 

TVl 

CMP  I 

27 

NOT  @,  IS  IT  A TO  Z 7 

00  5 A 

3F 

CMC 

1 

IF  NOT  RETURN  C FLAG 

00  5B 

D8 

RET 

C 

005C 

13 

INC 

DE 

IF  A THROUGH  Z 

005D 

21001F 

(5@3Q 

LODI 

HL , VARBGN 

COMPUTE  ADDRESS  OF 

0060 

07 

ROT 

L 

THAT  VARIABLE 

0061 

85 

ADD 

L 

AND  RETURN  IT  IN  HL 

0062 

6F 

LOD 

4.,  A 

WITH  C FLAG  CLEARED 

006  3 

3E00 

LODI 

A , 0 

006  5 

8C 

ADC 

H 

006  6 

67 

LOD 

H.A 

006  7 

• 

C9 

RET 

U 

• 

TSTC 

XCH 

HL  , ( SP ) 

***  TSTC  OR  RST  1 *** 

• 

IGNBLK 

THIS  IS  AT  LOC.  8 

* 

CMP 

M 

AND  THEN  JMP  HERE 

006  8 

23 

TCI 

INC 

HL 

COMPARE  THE  BYTE  THAT 

0069 

CA7300 

JMP 

Z.TC2 

FOLLOWS  THE  RST  INST. 

006C 

C5 

PU^H 

BC 

WITH  THE  TEXT  <DE->) 

006D 

4 E 

LOD 

C , M 

IF  NOT  -,  ADD  THE  2ND 

006  E 

0600 

LODI 

B , 0 

BYTE  THAT  TOLLOWS  THE 

0070 

09 

ADD 

HL , BC 

RST  TO  THE  OLD  PC 

0071 

Cl 

POP 

BC 

I.E. , DO  A RELATIVE 

007  2 

IB 

DEC 

DE 

JUMP  IF  NOT  - 

007  3 

13 

TC2 

INC 

DE 

IF  -,  SKIP  THOSE  BYTES 

0074 

23 

INC 

HL 

AND  CONTINUE 

007  5 

E3 

XCH 

HL,( SP) 

0076 

* 

C9 

RET 

U 

0077 

210000 

TSTNOM 

LODI 

HL  , 0 

***  TSTNUM  *** 

007A 

44 

LOD 

B , H 

TEST  IF  THE  TEXT  IS 

007B 

EF 

IGNBLK 

A NUMBER 

007C 

FE30 

TNI 

CMP  I 

*0’ 

IF  NOT,  RETURN  0 IN 

007E 

D8 

RET 

C 

B AND  HL 

007  F 

FE3A 

CMPI 

X1  3A' 

IF  NUMBERS,  CONVERT 

0081 

E0 

RET 

NC 

TO  BINARY  IN  HL  AND 

0082 

3EF0 

LODI 

A , X ' F0 ' 

SET  B TO  # OF  DIGITS 

0084 

A4 

AND 

H 

IF  H ">2  5 5 , THERE  IS  NO 

0085 

C29F00 

JMP 

NZ ,QHOW 

ROOM  FOR  NEXT  DIGIT 

02 
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0088 

04 

INC 

B 

B COUNTS  # OF  DIGITS 

0089 

C5 

PUSH 

BC 

00  8 A 

444D 

LOD 

BC,RL 

HL-10*HL»(  NEK  DIGIT) 

008C 

29 

ADD 

HL , HL 

WHERE  10*  IS  DONE  BY 

008D 

29 

ADD 

HL,HL 

SHIFT  AND  ADD 

008E 

09 

ADD 

HL , BC 

008F 

29 

ADD 

HL , HL 

0390 

1A 

LD 

A , ( DE) 

AND  (DIGIT)  IS  FROM 

0091 

13 

INC 

DE 

STRIPPING  THE  ASCII 

0092 

E60F 

AND  I 

X ' 0F  ’ 

CODE 

009  4 

85 

ADD 

L 

009  5 

6F 

LOD 

L , A 

009  6 

3E00 

LODI 

A , 0 

009  8 

8C 

ADC 

H 

0099 

67 

LOD 

H,  A 

009 A 

Cl 

POP 

BC 

00 9 B 

1A 

LD 

A , ( DE) 

DO  THIS  DIGIT  AFTER 

009C 

F27C00 

JMP 

NS, TNI 

DIGIT.  S SAYS  OVERFLOW 

009  F 

D5 

QHOW 

PUSH 

DE 

«**  ERROR:  "HOW?"  *** 

00A0 

11A600 

AHOW 

LODI 

D E , HOW 

00  A 3 

C3A805 

JMP 

ERROR 

00A6 

484F573F 

HOW 

CHAR 

' HOW? ’ , 

,@CR 

00AA 

0D 

00AB 

4 F4B 

OK 

CHAR 

•OK’ , @CR 

00AD 

3D 

00AE 

574841 54 3F 

WHAT 

CHAR 

’ WHAT  ? ' 

, @CR 

00B3 

0D 

00B4 

534FS25259 

SORRY 

CHAP. 

•SORRY' 

,ecR 

00B9  0D 


***  MAIN  •*« 

THIS  IS  THE  MAIN  LOOP  THAT  COLLECTS  THE  TINY  BASIC  PROG  PAM 
AND  STORES  IT  IN  THE  MEMORY. 

AT  START,  IT  PRINTS  OTJT  "<  CR > OKt  CR ) " , AND  INITIALIZES  THE 
STACK  AND  SOME  OTHER  INTERNAL  VARIABLES.  THEN  IT  PROMPTS 
">"  Aim  READS  A LINE.  If  THE  LINE  STARTS  WITH  A NON-ZERO 
NUMBER,  THIS  NUMBER  IS  THE  LINE  NUMBER.  THE  LINE  NUMBER 
< IN  16  BIT  BINARY)  AND  THE  REST  OF  THE  LINE  (INCLUDING  CR) 

IS  STORED  IN  THE  MEMORY.  IF  A LINE  WITH  THE  SAME  LINE 
NUMBER  IS  ALREDY  THERE,  IT  IS  REPLACED  BY  THE  NEW  ONE.  IF 
THE  REST  OF  THE  LINE  CONSISTS  OF  A CR  ONLY,  IT  IS  NOT  STORED 
AND  ANA'  EXISTING  LINE  WITH  THE  SAME  LINE  NUMBER  IS  DELETED. 

AFTER  A LINE  IS  INSERTED,  REPLACED,  OR  DELETED,  THE  PROGRAM 
LOOPS  BACK  AND  ASK  FOR  ANOTHER  LINE.  THIS  LOOP  WILL  BE 
TERMINATED  WHEN  IT  READS  A LINE  WITH  ZERO  OR  NO  LINS 
NUMBER;  AND  CONTROL  IS  TKANSFERED  TO  •'DIRECT". 

TINY  BASIC  PROGRAM  SAVE  AREA  STARTS  AT  THE  MEMORY  LOCATION 
LABELED  "TXTBGN"  AND  ENDED  AT  "TXT END" . WE  ALWAYS  FILL  THIS 
AREA  STARTING  AT  "TXTBGN",  THE  UNFILLED  PORTION  IS  POINTED 
BY  THE  CONTENT  OF  A MEMORY  LOCATION  LABELED  "TXTUNF" . 

THE  MEMORY  LOCATION  "CURHNT"  POINTS  TO  THE  LINE  NUMBER 
THAT  IS  CURRENTLY  BEING  INTERPRETED.  WHILE  WE  ARE  IN 
THIS  LOOP  OR  WHILE  WE  ARE  INTERPRETING  A DIRECT  COMMAND 
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• (SEE  NEXT  SECTION),  "CURRNT"  SHOULD  POINT  TO  A 0. 


START  LODI  SP, STACK 
CD0E00  ST1  CALL  CRLF 

UAB00  LODI  DE  , OK 

97  SUB  A 

CD3C06  CALL  PRTSTG 

21CB00  LODI  HL.ST2+1 

220108  ST  HL, CURRNT 

210000  ST2  LODI  HL , 0 

220708  ST  HL , LOPVAR 

220303  ST  HL , STKGOS 

3E3E  ST3  LODI  A, ' > ’ 

CDD605  CALL  GETLN 

D5  PUSH  DE 

H371F  ease  lodi  de, buffer 

CD7700  CALL  TSTNUM 

EF  IGNBLK 

7C  LOD  A , H 

B5  IOR  L 

Cl  POP  BC 

CAF501  JMP  Z,  DIRECT 

IB  DEC  DE 

7C  LOD  A , H 

12  ST  A , ( DE ) 

IB  DEC  DE 

7D  LOD  A,L 

12  ST  A , ( DE ) 

C5D5  PUSH  BC , DE 

7 9 LOD  A , C 

93  SUB  E 

F5  PUSH  AF 

CD1406  CALL  FNDLN 

D5  PUSH  DE 

C20801  JMP  NZ.ST4 

D5  PUSH  DE 

CD 3 006  CALL  FNDNXT 

Cl  POP  BC 

2A1308  LD  HL , TXT UN? 

CDBD05  CALL  MVUP 

6069  LOD  HL , BC 

221308  ST  HL , TXTUNF 

Cl  ST4  POP  BC 

2A1308  LD  HL, TXTUNF 

FI  POP  AF 

E5  PUSH  HL 

FE83  CMPI  3 

CA0000  JMP  2, START 

8 5 ADD  L 

6 F LOD  L , A 

3E00  LODI  A , 0 

8C  ADC  H 

67  LOD  H , A 

11001F  eaae  lodi  de.txtend 

E7  COMP 

D2CF01)  JMP  NC , QSORRY 

221308  ST  HL, TXTUNF 

D1  POP  DE 

CDC606  CALL  MVDOWN 


THIS  IS  AT  LOC.  0 
AND  JUMP  TO  HERE 
DE->STRING 
A-0  - 

PRINT  STRING  UNTIL  CR 
LITERAL  0 

CURRNT- >LINE  # - 0 


PROMPT  ’>'  AND 

READ  A LINE 

DE- >END  OF  LINE 

DE- BEGINNING  OF  LINE 

TEST  IF  IT  IS  A NUMBER 

HL-VALUE  OF  THE  3 OR 
0 IF  NO  # WAS  FOUND 
BC- >END  OF  LINE 

BACKUP  DE  AND  SAVE 
VALUE  OF  LINE  # THERE 


BC , DE- >BEGIN , END 


A-#  OF  BYTES  IN  LINE 
FIND  THIS  LINE  IN  SAVE 
AREA,  DE- >SAVE  AREA 
N2 : NOT  FOUND,  INSERT 
Z: FOUND,  DELETF  IT 
FIND  NEXT  LINE 
DE- >NEXT  LINE 
BC->LINE  TO  BE  DELETED 
HL- >UNFILLED  SAVE  AREA 
MOVE  UP  TO  DELETE 
TXTUNF- >UNFILLED  AREA 
UPDATE 

GET  READY  TO  INSERT 
BUT  FIRST  CHECK  IF 
THE  LENGTH  OF  NEW  LINE 
IS  3 (LINE  # AND  CR) 
THEN  DO  NOT  INSERT 
MUST  CLEAR  THE  STACK 
COMPUTE  NEW  TXTUNF 


HL- >NEW  UNFILLED  AREA 
CHECK  TO  SEE  IF  THERE 
IS  ENOUGH  SPACE 
SORRY,  NO  ROOM  FOR  IT 
OK,  UPDATE  TXTUNF 
.'E-  >OLD  UNFILLED  AREA 


tbts  page  IS  BESI  »»«•>« 
raMicor*  eueeisb®10® 
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0127  D1E1 
0129  CDBD06 
012C  C3D300 


POP  DE,HL 
CALL  MVUP 
JMP  ST3 


DE- >EEG IN , HL- 5 END 
MOVE  NEW  LINE  TO  SAVE 
AREA 


*•*  TABLES  ***  DIRECT  ***  6 EXEC 

THIS  SECTION  OP  THE  CODE  TESTS  A STRING  AGAINST  A TABLE. 

WHEN  A MATCH  IS  FOUND,  CONTROL  IS  TRANSFERED  TO  THE  SECTION 
OF  CODE  ACCORDING  TO  THE  TABLE. 

AT  ’EXEC’,  DE  SHOULD  POINT  TO  THE  STRING  AND  HL  SHOULD  POINT 
TO  THE  TABLE-1.  AT  •DIRECT1,  DE  SHOULD  POINT  TO  THE  STRING, 
HL  WILL  BE  SET  UP  TO  POINT  TO  TABl-1,  WHICH  IS  THE  TABLE  OF 
ALL  DIRECT  AND  STATEMENT  COMMANDS. 

A * . ' IN  THE  STRING  WILL  TERMINATE  THE  TEST  AND  THE  PARTIAL 
MATCH  WILL  BE  CONSIDERED  AS  A MATCH.  E.G.,  'P.',  *PR.', 

1 PRI . ' , 'PRIN.’,  OR  ’PRINT’  WILL  ALL  MATCH  ’PRINT*. 

THE  TABLE  CONSISTS  OF  ANY  NUMBER  OF  ITEMS.  EACH  ITEM 
IS  A STRING  OF  CHARACTERS  WITH  BIT  7 SET  TO  0 AND 
A JUMP  ADDRESS  STORED  HI-LOW  WITH  BIT  7 OF  THE  HIGH 
BYTE  SET  TO  1. 

END  OF  TABLE  IS  AN  ITEM  WITH  A JUMP  ADDRESS  ONLY.  IF  THE 
STRING  DOES  NOT  MATCH  ANY  OF  THE  OTHER  ITEMS,  IT  WILL 
MATCH  THIS  NULL  ITEM  AS  DEFAULT. 


012F 

TAB1 

EOU 

• DIRECT  COMMANDS 

012F 

4C495354 

ITEM 

’LIST’ .LIST 

0133 

8261 

0135 

52554E 

ITEM 

’RUN’ , RUN 

0138 

8233 

01 3A 

4E4557 

ITEM 

‘NEW’ , NEW 

01 3D 
013F 

8226 

TAB  2 

EQU 

• DIRECT /STATEMENT 

013F 

4E455854 

ITEM 

’NEXT’ .NEXT 

0143 

83  4 9 

0145 

4C4554 

ITEM 

’LET* .LET 

0148 

8407 

014A 

4946 

ITEM 

•IF’ ,IF 

014C 

8 3 9A 

014E 

474F544F 

ITEM 

’GOTO’ .GOTO 

0152 

8252 

0154 

474F535542 

ITEM 

•GOSUB’ .GOSUB 

0159 

82B1 

015B 

52455455524E 

ITEM 

•RETURN’ .RETURN 

0161 

82D1 

0163 

52454D 

ITEM 

’REM’ , REM 

0166 

8396 

0168 

464F52 

ITEM 

’ FOR’ , FOR 

01CB 

8 2EA 

016D 

494E505554 

ITEM 

’ INPUT’ , INPUT 

0172 

83B1 

0174 

5052  4 9 4 E54 

ITEM 

’PRINT* .PRINT 

0179 

8279 

017B 

53544F50 

ITEM 

’STOP’ .STOP 

017F 

82  2 F 

05 
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0181 

8401 

ITEM 

, DEFLT 

0183 

594F55204D415920 

CHAR 

■YOU  MAY 

INSERT  MORE  COMMANDS.’ 

018B 

494E534552542020 

019  3 

4D4F524520434F4D 

019B 

404 14E44  532E 

01A1 

TAB  4 

EQ0 

* 

FUNCTIONS 

01A1 

524E44 

ITEM 

’ RND  ' , RND 

01A4 

8506 

01A6 

414253 

ITEM 

■ABS' , ABS 

01A9 

8531 

01AB 

53495A45 

ITEM 

•SIZE', SIZE  - 

"" 

0 1 AF 

8 5 3D 

01B1 

84  EC 

ITEM 

, XP40 

01B3 

594F55204D4 15920 

CHAR 

■YOU  MAY 

INSERT  MORE  FUNCTIONS' 

01BB 

494E534552542020 

01C3 

4D4F52452046554E 

01CB 

4354494F4ES3 

01D1 

TABS 

EQU 

• 

-To-  in  "FOR" 

01D1 

54  4 F 

ITEM 

'TO' , FR1 

01D3 

8 2 FA 

01D5 

8 5A4 

ITEM 

, QWHAT 

01D7 

TAB  6 

EQU 

* 

"STEP"  IN  "FOR" 

01D7 

53544550 

ITEM 

’STEP’ , FR2 

01DB 

8304 

01DD 

8308 

ITEM 

, FR3 

01DF 

TAB  8 

EQU 

• 

RELATION  OPERATORS 

01DF 

3E3D 

ITEM 

• >- ’ ,XP11 

01E1 

8417 

01E3 

23 

ITEM 

’#* .XP12 

01E4 

84  ID 

01E6 

3E 

ITEM 

' >' ,XP13 

. 

01E7 

8423 

01E9 

3D 

ITEM 

,XP15 

01EA 

8432 

01EC 

3C3D 

ITEM 

' <-' ,XP14 

01EE 

842A 

01F0 

3C 

ITEM 

•<’ , XP16 

01F1 

84  38 

01F3 

• 

84  3 E 

ITEM 

, XP17 

01F5 

• 

212E01  DIRECT 

LODI 

HL , TAB1-1 

•*•  DIRECT  *** 

01F8 

EXEC 

EQU 

* 

***  EXEC 

01F8 

EF  EX0 

IGNBLX 

IGNORE  LEADING  BLANKS 

01F9 

D5 

PUSH 

DE 

SAVE  POINTER 

01FA 

1A  EX1 

LD 

A,(  DE) 

IF  FOUND  IN  STRING 

01FB 

13 

INC 

DE 

BEFORE  ANY  MISMATCH 

01FC 

FE2E 

CMP  I 

1 1 

WE  DECLARE  A MATCH 

01FE 

CA1702 

JMP 

Z ! EX3 

0201 

23 

INC 

HL 

HL- >TABLE 

0202 

EE 

CMP 

M 

IF  MATCH,  TEST  NEXT 

0203 

CAFA01 

JMP 

Z , EX1 

0206 

3E7F 

LODI 

A , X * 7F ' 

ELSE,  SEE  IF  BIT  7 

0208 

IB 

DEC 

DE 

OF  TABLE  IS  SET,  WHICH 

0209 

BE 

CMP 

M 

IS  THE  JUMP  ADDR.  ( HI > 

020A 

DA1E02 

JMP 

C , EX5 

C : YES , MATCHED 

020D 

2 3 EX2 

INC 

HL 

NC : NO , FIND  JUMP  ADDR. 

020E 

BE 

CMP 

M 

020F 

D20002 

JMP 

NC , EX2 

0212 

23 

INC 

HL 

°um.'  TO  NEXT  TAB.  ITEM 

06 
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0213 

D1 

POP 

DE 

RESTORE  STRING  FOINTER 

0214 

C3F801 

JMP 

EX0 

TEST  AGAINST  NEXT  ITEM 

0217 

3E7F 

EX 3 LODI 

A , X ' 7F  ' 

PARTIAL  NATCH,  FIND 

0219 

23 

EX  i INC 

HL 

JUMP  ADDR.,  WHICH  IS 

02 1A 

BE 

CMP 

M 

FLAGGED  BY  BIT  7 

02  IB 

D21902 

JMP 

NC.EX4 

02  IE 

7 E 

EX 5 LOD 

A,M 

LOAD  HL  WITH  THE  JUMP 

02  IF 

23 

INC 

KL 

ADDRESS  FROM  THE  TABLE 

0220 

62 

LOD 

L,M 

0221 

E-3  7F 

ANDI 

X'  7F’ 

MASK  OFF  BIT  7 

0223 

67 

DOD 

K,A 

0224 

F 1 

POP 

AF 

CLEAN  UP  THE  GAEAGE 

0225 

<r 

E9 

JMP 

( KL) 

AND  WE  GO  DC  IT 

* 

* WHAT  FOLLOWS  IS 

THE  CODS  TO 

EXECUTE 

DIRECT  AND  STATEMENT 

■ COMMANDS.  CCN7 

ROL  IS  TRANS FEP.ED  TO 

THESE  POINTS  VIA  THE 

• COMMAND  TABLE  L 

OCKUP  CODE  0 

F 'DIRECT 

’ AND  'EXEC'  IN  LAST 

* SECTION.  AFTER 

THE  COMMAND 

IS  £<XilCU 

TED,  CONTROL  IS 

TRANSFEREE  TC  OTHER  SECTIONS  AS  FOLLOWS: 


FOR  'LIST'.  'NEW',  AND  'STOP':  GO  BACK  TO  'START' 

FOR  'RUN':  GO  EXECUTE  THE  FIRST  STORED  LINE  IF  ANY;  ELSE 
GO  BACK  TO  'START'. 

FOR  'GOTO'  AND  'GOSUB':  GO  EXECUTE  THE  TARGET  LINE. 

FOR  'RETURN'  AND  'NEXT':  GO  3ACK  TO  SAVED  RETURN  LINE. 
FOR  ALL  OTHERS:  IF  ' CURENT ' ->  0.  GO  TC  'START',  ELSE 
GO  EXECUTE  NEXT  COMMAND . (THIS  IS  DONE  IK  'FINISH'.) 


*«*  NEW  STOP  ***  RUN  ( S.  FRIENDS)  ***  £.  GOTO  *** 

'NEW!  CR) ' SETS  ' TX7UNF ' TO  POINT  TO  ' TXTBGN ' 

'STOP(CR)’  GOES  EACK  TO  'START' 

’RUNiCR)'  FINDS  THE  FIRST  STORED  LINE,  STORE  ITS  ADDRESS  (IN 
' CUP.RNT ' ) , AND  START  EXECUTE  IT.  NOTE  THAT  ONLY  THOSE 
COMMANDS  IN  7AE2  ARE  LEGAL  FOP.  STORED  PROGRAM. 

THERE  ARE  3 MORE  ENTRIES  IN  'RUN': 

' RUNNXL ' FINDS  NEXT  LINE,  STORES  ITS  ADDR.  AND  EXECUTES  IT. 

' RUNTSL 1 STORES  THE  ADDRESS  OF  THIS  LINE  AND  EXECUTES  IT. 
'RUNSML'  CONTINUES  THE  EXECUTION  ON  SANE  LINE. 


* 'GOTO  EXPP,  CR) 

* LINS,  ANL  JUMP 

* 

EVALUATES  THE  EXPRESSION, 
TO  'RUNTSL'  TO  DO  IT. 

FIND  THE 

TARGET 

0226 
02  2 9 
022C 

• 

CCA005 

211303 

221309 

NEW 

CALL  ENDCHK 
LODI  HL.TXTEGN 
ST  HL , TXTUNF 

* * * 

NEW(  CR) 

* * * 

02  2 F 
0232 

CDA005 

07 

STOP 

CALL  ENDCHK 
P.START 

* * * 

STOP(  CR) 

* * * 

0233 

CDA005 

RUN 

CALL  ENDCHK 

• • • 

RUN(  CR) 

* * * 

0236 

111503 

LODI  DS, TXTBGN 

FIRST  SAVED 

LINE 

07 


u.ifl  ^ 
. TO  tfSft  - 
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'N 

•V 


0239 

210000 

RUNNXL 

LODI 

HL,0 

RUNNXL  *** 

02  2C 

CD1C06 

CALL 

fnhlnp 

FIND  WHATEVER  LINE  # 

02  3 F 

• 

DA0000 

JMP 

C,  START 

C: PASSED  TXTUNF , QUIT 

0242 

EB 

RUNTSL 

XCH 

HL,DE 

«**  RUNTSL  **« 

0243 

220108 

ST 

HL , CURRNT 

SET  ’CURRNT ' ->LINE  # 

0246 

EB 

XCH 

HL,DE 

0247 

• 

1313 

INC 

DE,2 

BUMP  PASS  LINE  # 

02  4 9 

CD3207 

RUNSML 

CALL 

CHKIO 

RUNSML  **■ 

0 2 4C 

213E01 

LODI 

HL.TAB2-1 

FIND  COMMAND  IN  TAB 2 

024  F 

ft 

C3F801 

•JMP 

EXEC 

•AND  EXECUTE  IT 

0252 

DF 

GOTO 

EXPR 

***  GOTO  EXPR  *** 

0253 

D5 

PUSH 

DE 

SAVE  FOR  ERROR  ROUTINE 

0254 

CDA005 

CALL 

ENDCHK 

MUST  FIND  A CR 

0257 

CD1406 

CALL 

FNDLN 

FIND  THE  TARGET  LINE 

025A 

C2A000 

JMP 

NZ , AHOW 

NO  SUCH  LINZ  # 

025D 

FI 

POP 

AF 

CLEAR  THE  "PUSH  DE" 

025E 

ft 

C 34  202 

JMP 

RUNTSL 

GO  DO  IT 

***  LIST  ***  & PRINT  *** 

LIST  HAS  TWO  NORMS : 

’LIST(CR)*  LISTS  ALL  SAVED  LINES 
’LIST  -fK  CR)  ’ START  LIST  AT  THIS  LINE  # 

YOU  CAN  STOP  THE  LISTING  BY  CONTROL  C REV 

PRINT  COMMAND  IS  ’PRINT  OR  ’PRINT  ....(CR)’ 

WHERE  IS  A LIST  OF  EXPRESIONS,  FORMATS,  BACK- 

ARRCWS,  AND  STRINGS.  ThESE  ITEMS  ARE  SEPEPATEL  BY  COMMAS. 

A FORMAT  IS  A POUND  SIGN  FOLLOWED  BY  A NUMBER.  IT  CONTROLS 
THE  NUMBER  OF  SPACES  THE  VALUE  OF  A EXPRESION  IS  GOING  TO 
BE  PRINTED.  IT  STAYS  EFFECTIVE  FOR  THE  PEST  OF  THE  PRINT 
COMMAND  UNLESS  CHANGED  BY  ANOTHER  FORMAT.  IF  NO  FORMAT  IS 
SPECIFIED,  6 POSITIONS  WILL  BE  USED. 

A STRING  IS  OUOTED  IN  A PAIR  OF  SINGLE  QUOTES  OP.  A PAIR  OF 
DOUBLE  QUOTES. 

A BACK-ARROW  MEANS  GENERATE  A (CR)  WITHOUT  ( LF ) 

A ( CRLF ) IS  GENERATED  AFTER  THE  ENTIRE  LIST  HAS  BEEN 
FRINTED  OR  IF  THE  LIST  IS  A NULL  LIST.  HOWEVER  IF  THE  LIST 
ENDED  WITH  A COMMA,  NO  (CRLF)  IS  GENERATED. 


ft 

0261 

CD1 7 00 

LIST 

CALL 

TSTNUM. 

TEST  IF  THERE  IS  A # 

026-; 

CDA005 

CALL 

ENDCHK 

IF  7)0  # WE  GET  A Z 

0267 

CD1436 

CALL 

FNDLN 

FIND  THIS  OR  NEXT  LINE 

026A 

DA0000 

LSI 

JMF 

C .START 

C: PASSED  TXTUNF 

026D 

CDAA06 

CALL 

PRTLN 

PRINT  THE  LINE 

0270 

CD  3 207 

CALL 

CHKIO 

STOP  IF  HIT  CONTROL-C 

0273 

CD1C06 

CALL 

FNDLNP 

riND  NEXT  LINE 

02  7 6 

ft 

C36A02 

JMP 

LSI 

AND  LOOP  BACK 

0279 

0E06 

PRINT 

LODI 

C , 5 

C - * OF  SPACES 

0273 

CF 

TSTC 

’ ! ’ ,PR2 

IF  NULL  LIST  U "j" 

03 


BEST  QUAUTY  PRACTICABLE 

S Spy  WISHED  TO  DUO  
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027C 

3B 

•• 

027P 

06 

02  7 E 

CD0E00 

1 

CALL 

CRLF 

GIVE  CR-LF  AND 

0231 

C 34  902 

1 

JMP 

RUNSML 

CONTINUE  SAME  LINE 

0284 

CF 

PR2 

TSTC 

@CR,PPj0 

IF  NULL  LIST  ( CR) 

0285 

0 D 

* 

0286 

06 

0287 

CD0E00 

CALL 

CRI.V 

ALSO  GIVE  CR-LS  AND 

0 2 8A 

C33902 

JMP 

RUNNXL 

GO  .TO  NEXT  Liya 

02  8D 

CF 

PR0 

TSTC 

•#' , PR1 

ELSE  IS  IT  FCR^VT? 

028S 

23 

02  PF 

05 

• i 

0290 

DF 

EXPR 

YES,  EVALUATE  ?XPR. 

02  91 

4D 

LOD 

C,L 

AND  SAVE  IT  IN>0 

0292 

C39B02 

JMP 

PR  3 

LOOK  FOR  MORE  ‘TO  FRIN' 

02  9 5 

CD4806 

PR1 

CALL 

OTSTG 

OR  IS  IT  A STRING? 

0293 

C3AS02 

JMP 

PR8 

IF  NOT,  MUST  EE  EXPR. 

029B 

CF 

PR3 

TSTC 

' , ’ ,PR6 

IF  GO  FIND  NEXT 

02  9C 

2C 

02»D 

06 

02  9 E 

CD9105 

CALL 

FIN 

IN  THE  LIST. 

02A1 

C38D02 

JMP 

PR0 

LIST  CONTINUES 

0 2A4 

CD0E00 

PR6 

CALL 

CRLF 

LIST  ENDS 

02A7 

F7 

FINISH 

02A8 

DF 

PR8 

EXPR 

EVALUATE  THE  EXPR 

02A9 

C5 

PUSH 

EC 

02AA 

CD5E06 

CALL 

PRTNUM 

PRINT  THE  VALUE 

02  AD 

Cl 

POF 

EC 

02AE 

C39B02 

JMP 

PR3 

MORE  TO  PRINT? 

>*!» 


GOSUB  ***  6 RETURN  *** 

'GOSUE  EX PR ; ' OR  'GCSUB  EXPR  ( CR) ’ IS  LIKE  THE  'GOTO' 
COMMAND,  EXCEPT  THAT  THE  CURRENT  TEXT  POINTER,  STACK  POINTER 
ETC.  ARE  SAVE  SO  THAT  EXECUTION  CAN  BE  CONTINUED  AFTER  THE 
SUBROUTINE  'RETURN'.  IN  ORDER  THAT  'GCSUB'  CAN  BE  NESTED 
(AND  EVEN  RECURSIVE i , THE  SAVE  AREA  MUST  EE  STACKED. 

THE  STACK  POINTER  IS  SAVED  IN  ' STKGOS ' . THE  OLD  ' STKGOS ' IS 
SAVED  IN  THE  STACK.  IF  W£  ARE  IN  THE  MAIN  ROUTINE,  'STKGOS' 
IS  ZERO  (THIS  WAS  DONE  BY  THE  "MAIN"  SECTION  OF  THE  CODE), 
BUT  WE  STILL  SAVE  IT  AS  A FLAG  FOR  NO  FURTHER  'RETURN'S. 

’ RETURN?  CR) 1 UNDOS  EVERYTHING  THAT  ‘GOSUE’  DID,  AND  THUS 
RETURN  THE  EXCUTICN  TO  THE  COMMAND  AFTER  THE  MOST  P.ECENT 
■GOSUB’.  IF  ‘STKGOS’  IS  ZERO,  IT  INDICATES  THAT  WE 
NEVER  HAD  A ’GOSUB’  AND  IS  THUS  AN  ERROR. 


• 

02B1 

CDF106 

GOSUB  CALL 

PUS  HA 

SAVE  THE  CURRENT  "FOR" 

02B4 

DF 

EXPR 

PARAMETERS 

02B5 

D 5 

PUSH 

DE 

AND  TEXT  POINTER 

02B6 

CD1406 

CALL 

FKDLN 

FIND  THE  TARGET  LINE 

02B9 

C2A00J 

JMP 

NZ ,AHOW 

NOT  TKFRE . SAY  "hCW?" 

02EC 

2A0108 

LD 

HL.CUP.RNT 

FOUND  IT,  SAVE  OLD 

02BF 

E5 

PUSH 

HL 

' CURRNT ' OLD  'STKGOS' 

02C0 

2A0303 

LD 

HL, STKGOS 

02C  3 

E 5 

PUSH 

HL 

02C4 

210000 

LODI 

HL , 0 

AND  LOAD  NEW  ONES 

02C7 

220708 

ST 

HL, LOP VAR 

09 


IBIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
fRQU  COPY  FURNISHED  TO  DDC  _ ' 
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39 

220308 

C34202 

CDA005 

2A0308 

7C 

B5 

CAA405 

F9 

El 

220303 

El 

220108 

D1 

CDD506 

F7 


ADD  HL,SP 
ST  HL.STKCOS 
JMP  RUNTSL 
RETURN  CALL  ENDCHK 

LD  HL.STKGOS 
LOD  A , H 
IOR  L 

JMP  2 , OWHAT 
LOD  SP , HL 
POP  HL 

ST  HL.STKGOS 
POP  HL 

ST  HL.CURRNT 
POP  DE 
CALL  POPA 
FINISH 


THEN  RUN  THAT  LINE 
THERE  MUST  BE  A CR 
OLD  STACK  POINTER 
0 MEANS  NOT  EXIST 

SO,  WE  SAY:  "WHAT?" 
ELSE,  RESTORE  IT 

AND  THE  OLD  1 STKGOS ' 

AND  THE  OLD  ’ CURRNT 1 
OLD  TEXT  POINTER 
OLD  "FOR"  PARAMETERS 
AND  WE  ARE  BACK  HOME 


»*»  FOR  ***  6 NEXT  *** 

’FOR1  HAS  TWO  FORMS: 

’FOR  VAR-EXP1  TO  EXP2  STEP  EXP1 ’ AND  ’FOR  VAR-EXP1  TO  EXP2 ’ 
THE  SECOND  FORM  MEANS  THE  SAME  THING  AS  THE  FIRST  FORM  WITH 
EXPl-1.  (I.E.,  WITH  A STEP  OF  +1.) 

TBI  WILL  FIND  THE  VARIABLE  VAR.  AND  SET  ITS  VALUE  TO  THE 
CURRENT  VALUE  OF  EXP1 . IT  ALSO  EVALUATES  EXPR2  AND  EXP1 
AND  SAVE  ALL  THESE  TOGETHER  WITH  THE  TEXT  POINTER  ETC.  IN 
THE  ’FOR’  SAVE  AREA,  WHICH  CONSISTS  OF  'LOPVAR',  'LOPINC', 

* LOPLMT ' , ' LOPLN 1 , AND  ’LCPPT'.  IF  THERE  IS  ALREADY  SOME- 

THING IN  THE  SAVE  AREA  ( THIS  IS  INDICATED  BY  A NON-ZERO 
'LOPVAR'),  THEN  THE  OLD  SAVE  AREA  IS  SAVED  IN  THE  STACK 
BEFORE  THE  NEW  ONE  OVERWRITES  IT. 

TBI  WILL  THEN  DIG  IN  THE  STACK  AND  FIND  CUT  IF  THIS  SAME 
VARIABLE  WAS  USED  IN  ANOTHER  CURRENTLY  ACTIVE  'FOR'  LOOP. 

IF  THAT  IS  THE  CASE,  THEN  THE  OLD  'FOR'  LOOP  IS  DEACTIVATED. 
(PURGED  FROM  THE  STACK..) 

'NEXT  VAR'  SERVES  AS  THE  LOGICAL  (NOT  NECESSARILLY  PHYSICAL) 
END  OF  THE  'FOR'  LOOP.  THE  CONTROL  VARIABLE  VAR.  IS  CHECKED 
WITH  THE  'LOPVAR'.  IF  THEY  ARE  NOT  THE  SAME,  TBI  DIGS  IN 
THE  STACK  TO  FIND  THE  RIGHT  ONE  AND  PURGES  ALL  THOSE  THAT 
DID  NOT  MATCH . EITHER  WAY,  TBI  THEN  ADDS  THE  'STEP'  TO 
THAT  VARIABLE  AND  CHECK  THE  RESULT  WITH  THE  LIMIT.  IF  IT 
IS  WITHIN  THE  LIMIT,  CONTROL  LOOPS  BACK  TO  THE  COMMAND 
FOLLOWING  THE  ’FOR’.  IF  OUTSIDE  THE  LIMIT,  THE  SAVE  ARER 
IS  PURGED  AND  EXECUTION  CONTINUES. 


CDF105 

CD7E05 

2B 

220708 

21D001 

C3F801 

DF 

220B08 

21D601 

C3F801 

DF 

C30303 


PUSHA  SAVE  THE  OLD  SAVE  AREA 

SETVAL  SET  THE  CONTROL  VAR. 

HL  KL  IS  ITS  ADDRESS 

HL, LOPVAR  SAVE  THAT 
HL , TAB 5-1  USE  'EXEC*  TO  LOOK 
EXEC  FOR  THE  WORD  'TO' 

EVALUATE  THE  LIMIT 
HL, LOPLMT  SAVE  THAT 
HL , TAB 6-1  USE  ‘EXEC’  TO  LOOK 
EXEC  FOR  THE  WORD  ‘STEP’ 

FOUND  IT,  GET  STEP 
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0308 

210100 

FR3 

LODI 

HL , 1 

NOT  FOUND,  SET  TO  1 

030B 

220908 

FR4 

ST 

HL, LOP INC 

SAVE  THAT  TOO 

030E 

2A0108 

FR5 

LD 

HL , CURRNT 

SAVE  CURRENT  LINE  * 

*311 

220D08 

ST 

HL.LOPLN 

0314 

EB 

XCH 

HL , DE 

AND  TEXT  POINTER 

0315 

220F08 

ST 

HL , LOPPT 

0318 

010A00 

LODI 

BC,  10 

DIG  INTO  STACK  TO 

031B 

2A0708 

LD 

HL , LOPVAR 

TIND  ’LOPVAR’ 

03  IE 

EB 

XCH 

HL  , DE 

03  IF 

60 

LOD 

H ,B 

0320 

68 

LOD 

L,B 

HL-0  NOW 

0321 

39 

ADD 

HL , SP 

HERE  IS  THE  STACK 

0322 

3E 

SKIP 

0323 

09 

FR7 

ADD 

HL , BC 

EACH  LEVEL  IS  10  DEEP 

0324 

7E 

LOD 

A,M 

GET  THAT  OLD  'LOPVAR' 

0325 

2J3 

INC 

HL 

4-0326 

B6 

IOR 

M 

0327 

CA4403 

JMP 

Z.FR8 

0 SAYS  NO  MORE  IN  IT 

032A 

7E 

LOD 

A.M 

032B 

2B 

DEC 

HL 

032C 

BA 

CMP 

D 

SAME  AS  THIS  ONE? 

032D 

C22303 

JMP 

NZ , FR7 

0330 

7E 

LOD 

A , M 

THE  OTHER  HALF? 

03  31 

BB 

CMP 

E 

0332 

C22303 

JMP 

NZ , FR7 

0335 

EB 

XCH 

HL , DE 

YES,  FOUND  ONE 

0336 

210000 

LODI 

HL , 0 

0339 

39 

ADD 

HL.SP 

TRY  TO  MOVE  SP 

033A 

444D 

LOD 

BC  , HL 

033C 

210A00 

LODI 

HL,  10 

033F 

19 

ADD 

HL , DE 

0340 

CDC606 

CALL 

MVDOWN 

AND  PURGE  10  WORDS 

0343 

F9 

LOD 

SP , HL 

IN  THE  STACK 

0344 

2A0F08 

FR8 

LD 

HL, LOPPT 

JOE  DONE,  RESTORE  DE 

0347 

EB 

XCH 

HL.DE 

0348 

• 

F7 

FINISH 

AND  CONTINUE 

0349 

FF 

NEXT 

TSTV 

GET  ADDRESS  OF  VAR. 

034A 

PAA405 

JMP 

C.OWHAT 

NO  VARIABLE,  "WHAT?" 

034D 

220508 

ST 

HL, VARNXT 

YES,  SAVE  IT 

0350 

05 

NX0 

PUSH 

DE 

SAVE  TEXT  POINTER 

0351 

EB 

XCH 

HL , DE 

0352 

2A0708 

LD 

HL, LOPVAR 

GET  VAR.  IN  'FOR* 

0355 

7C 

LOD 

A , H 

0356 

B5 

IOR 

L 

0 SAYS  NEVER  HAD  ONE 

0357 

CAA505 

JMP 

Z , AWHAT 

SO  WE  ASK:  "WHAT?" 

035A 

E7 

COMP 

ELSE  WE  CHECK  THEM 

035B 

CA6803 

JMP 

Z , NX3 

OK,  THEY  AGREE 

035E 

D1 

POP 

DE 

NO,  LET'S  SEE 

035F 

CDD506 

CALL 

POPA 

PURGE  CURRENT  LOOP 

0362 

2A0509 

LD 

HL , VARNXT 

AND  POP  ONE  LEVEL 

0365 

C 3 5003 

JMP 

NX0 

GO  CHECK  AGAIN 

0368 

5E 

NX  3 

LOD 

E.M 

COME  HERE  WHEN  AGREED 

0369 

23 

INC 

HL 

036A 

56 

LOD 

D,M 

DE-VALUE  OF  VAR. 

036B 

2A0908 

LD 

HL, LOP INC 

036E 

E5 

PUSH 

HL 

036F 

19 

ADD 

HL.DE 

ADD  ONE  STEP 

0370 

EB 

XCH 

HL.DE 

0371 

2A0708 

LD 

KL, LOPVAR 

PUT  IT  BACK 

li 
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0374 

73 

LOD 

M,E 

0375 

23 

INC 

KL 

0376 

72 

LOD 

M , D 

0377 

2A0B08 

LD 

HL , LOPLMT 

HL->LIMIT 

037A 

FI 

POP 

AF 

OLD  HL 

037B 

B7 

IOR 

A 

037C 

F28003 

JMP 

NS.NX1 

STEP  > 0 

037F 

EB 

XCH 

HL,DE 

STEP  < 0 

0380 

CD7605 

NX! 

CALL 

CKHLDE 

COMPARE  WITH  LIMIT 

0383 

D1 

POP 

DE 

RESTORE  TEXT  POINTER 

0384 

DA9203 

JMP 

C.NX2 

OUTSIDE  LIMIT 

* 0387 

2A0D08) 

LD 

HL.LOPLN 

WITHIN  LIMIT,  GO 

03  8A 

220108 

ST 

HL.CURRNT 

BACK  TO  THE  SAVED 

038D 

2A0F08 

LD 

HL , LOPPT 

’ CURRNT ' AND  TEXT 

0390 

EB 

XCH 

HL , DE 

POINTER 

0391 

F7 

FINISH 

0392 

CDD506 

NX  2 

CALL 

POPA 

PURGE  THIS  LOOP 

0395 

F7 

FINISH 

***  REM  ***  IF  ***  INPUT  "**  6 LET  (6  DEFLT)  •** 

’REM’  CAN  BE  FOLLOWED  BY  ANYTHING  AND  IS  IGNORED  BY  TBI. 

TBI  TREATS  IT  LIKE  AN  'IF'  WITH  A FALSE  CONDITION. 

•IF’  IS  FOLLOWED  BY  AN  EXPR.  AS  A CONDITION  AND  ONE  OR  MORE 
COMMANDS  (INCLUDING  OUTHER  ’IF’S)  SEPERATED  BY  SEMI-COLONS. 
NOTE  THAT  THE  WORD  ’THEN’  IS  NOT  USED.  TBI  EVALUATES  THE 
EXPR.  IF  IT  IS  NCN-ZERO,  EXECUTION  CONTINUES.  IF  THE 
EXPR.  IS  ZERO,  THE  COMMANDS  THAT  FOLLOWS  ARE  IGNORED  AND 
EXECUTION  CONTINUES  AT  THE  NEXT  LINE. 

•INPUT'  COMMAND  IS  LIKE  THE  ’PRINT'  COMMAND,  AND  IS  FOLLOWED 
BY  A LIST  OF  ITEMS.  IF  THE  ITEM  IS  A STRING  IN  SINGLE  CR 
DOUBLE  QUOTES,  OR  IS  A 3ACK -ARROW,  IT  HAS  THE  SAME  EFFECT  AS 
IN  ’PRINT’.  IF  AN  ITEM  IS  A VARIABLE,  THIS  VARIABLE  NAME  IS 
PRINTED  OUT  FOLLOWED  BY  A COLON.  THEN  TBI  WAITS  FOR  AN 
EXPR.  TO  BE  TYPED  IN.  THE  VARIABLE  IS  THEN  SET  TO  THE 
VALUE  OF  THIS  EXPR.  IF  THE  VARIABLE  IS  PROCEDED  BY  A STRING 
(AGAIN  IN  SINGLE  OR  DOUBLE  QUOTES),  THE  STRING  WILL  BE 
PRINTED  FOLLOWED  BY  A COLON.  TBI  THEN  WAITS  FOR  INPUT  EXPR. 
AND  SET  THE  VARIABLE  TO  THE  VALUE  OF  THE  EXPR. 

IF  THE  INPUT  EXPR.  IS  INVALID,  TBI  WILL  PRINT  "WHAT?", 

"HOV??"  OR  "SORRY"  AND  REPRINT  THE  PROMPT  AND  REDO  THE  INPUT. 
THE  EXECUTION  WILL  NOT  TERMINATE  UNLESS  YOU  TYPE  CONTROL-C. 
THIS  IS  HANDLED  IN  ’ INPERR ' . 

'LET'  IS  FOLLOWED  3Y  A LIST  OF  ITEMS  SEPERATED  BY  COMMAS. 

EACH  ITEM  CONSISTS  OF  A VARIABLE,  , N EQUAL  SIGN,  AND  AN  EXPR. 
TBI  EVALUATES  THE  EXPR.  AND  SET  THE  VARIBLE  TO  THAT  VALUE. 

TBI  WILL  ALSO  HANDLE  ’LET’  COMMAND  WITHOUT  THE  WORD  ’LET’. 
THIS  IS  DONE  BY  ’DEFLT’. 


0396  21 0000 

REM 

LCD I HL ,0 

*«*  REM  *** 

0399  3 E 

* 

SKIP 

THIS  IS  LIKE  'IF  0 

039A  DF 

IF 

EXPR 

«» * if  *** 

039B  7C 

LOD  A , H 

IS  THE  EXPR. -07 

12 
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039C 

B5 

I0R 

L 

0 3 90 

C24902 

JMP 

NZ , RUNSML 

NO,  CONTINUE 

0 3A0 

CO3206 

CALL 

FNDSKP 

YES,  SKIP  REST  OF  LINE 

03A3 

02  4 202 

JMP 

NC , RUNTSL 

AND  RUN  THE  NEXT  LINE 

0 3 AS 

f| 

C7 

RSTART 

IF  NO  NEXT,  RE-START 

03A7 

2A0508 

INPERR 

LD 

HL , STKINP 

'**  INPERR  *** 

03  AA 

F9 

LCD 

SP , HL 

RESTORE  OLD  SP 

03A3 

El  

POP  . 

HL 

AND  OLD  ‘CURRNT1 

0 3 AC 

220108 

ST 

HL, CURRNT 

03AF 

D1 

POP 

DE 

AND  OLD  TEXT  POINTER 

0330 

D1 

POP 

DE 

REDO  INPUT 

0 3B1 

INPUT 

EQU 

m 

«**  INPUT  *•* 

03B1 

D5 

IP1 

PUSH 

DE 

SAVE  IN  CASE  OF  ERROR 

03B2 

CD4806 

CALL 

OTSTG 

IS  NEXT  ITEM  A STRING? 

0335 

C3BF03 

JMP 

IP2 

NC 

03B8 

FF 

TSTV 

YES . BUT  FOLLOWED  BY  A 

03B9 

DAF903 

JMP 

C.IP4 

VARIABLE?  NO. 

033C 

C3CF03 

JMP 

IP3 

YES . INPUT  VARIABLE 

03BF 

D5 

IP2 

PUSH 

DE 

SAVE  FOR  ‘PRTSTG’ 

03C0 

FF 

TSTV 

MUST  BE  VARIABLE  NOW 

03C1 

OAA405 

JMP 

C.OWHAT 

"WHAT?"  IT  IS  NOT? 

03C4 

1A 

LD 

A,  ( DE) 

GET  READY  FOR  ’PRTSTG' 

03C5 

4 F 

LOD 

C , A 

03C6 

97 

SUB 

A 

03C7 

12 

ST 

A,( DE) 

03C8 

D1 

POP 

DE 

03C9 

CD3C06 

CALL 

PRTSTG 

PRINT  STRING  AS  PROMPT 

03CC 

79 

LOD 

A , C 

RESTORE  TEXT 

03CD 

IB 

DEC 

DE 

03CE 

12 

ST 

A , ( DE ) 

03CF 

05 

IP3 

PUSH 

DE 

SAVE  IN  CASE  OF  ERROR 

03D0 

EB 

XCH 

HL , DE 

0301 

2A0108 

LD 

HL , CURRNT 

ALSO  SAVE  ‘CURRNT' 

03D4 

E5 

PUSH 

HL 

03D5 

21B103 

LOO  I 

HL.IPl 

A NEGATIVE  HUMBER 

0308 

220108 

ST 

HL, CURRNT 

AS  A FLAG 

0303 

210000 

LODI 

HL , 0 

SAVE  SP  TOO 

03DE 

39 

ADO 

HL , SP 

03DF 

220508 

ST 

HL, STKINP 

03E2 

05 

PUSH 

DE 

OLD  HL 

03E3 

3E3A 

LODI 

A,  ’ : ' 

PRINT  THIS  TOO 

03E5 

CDD605 

CALL 

GETLN 

AND  GET  A LINE 

03E8 

11371F  0000 

LODI 

DE, BUFFER 

POINTS  TO  BUFFER 

03  EB 

DF 

EXPR 

EVALUATE  INPUT 

03  EC 

000000 

NOP 

3 

CAN  BE  ‘CALL  ENLCHK ‘ 

03EF 

Di 

POP 

DE 

OK,  GET  OLD  HL 

03F0 

EB 

XCH 

HL  ,DE 

03F1 

73 

LOD 

M,  E 

SAVE  VALUE  IN  VAR. 

03F2 

23 

INC 

HL 

03F3 

72 

LOD 

M,  D 

03F4 

El 

POP 

HL 

GET  OLD  ‘CURRNT’ 

03F5 

220103 

ST 

HL, CURRNT 

03F8 

Dl 

POP 

OE 

AND  OLD  TEXT  POINTER 

0 3F9 

FI 

IP4 

POP 

AF 

PURGE  JUNK  IN  STACK 

03FA 

CF  . 

TS7C 

' . * .IPS 

IS  NEXT  CH.  ‘ , ’ ? 

03FB 

2C 

03FC 

03 

03FD 

C3B103 

JMP 

IP1 

YES,  MORE  ITEMS. 

13 
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04 00  F7  IP5  FINISH 


0401 

1A 

DEFLT 

LD 

A , ( DE) 

•••  DEFLT  **• 

0402 

FE0D 

CMP  I 

0CR 

EMPTY  LINE  IS  OK 

0404 

•6 

CA1004 

JMP 

Z.LT1 

ELSE  IT  IS  ’LET’ 

0407 

CD7E05 

LET 

CALL 

SETVAL 

•**  LET  *** 

04  0A 

CF 

TSTC 

' . ‘ ■ LT1 

SET  VALUE  TO  VAR 

04  0B 

2C 

040C 

03 

04  0D 

C30704 

JMP 

LET 

ITEM  BY  ITEM 

0410 

F7 

LT1 

FINISH 

UNTIL  FINISH 

EXPR  *•* 

' EXPR ' EVALUATES  ARITHMETICAL  OR  LOGICAL  EXPRESSIONS. 

<EXPR> : : - < EXPR2  > 

< EXPR2  XREL  .OP.  ><EXPR2> 

WHERE  < REL . OP . > IS  ONE  OP  THE  OPERATORS  IN  TAB8  AND  THE 
RESULT  OF  THESE  OPERATIONS  IS  1 IF  TRUE  AND  0 IF  FALSE. 
<EXPR2  > ! i-t  ♦ OR  -KEXPR3X  + OR  -<EXPR3>>(  ....  I 
WHERE  ( ) ARE  OPTIONAL  AND  (....)  ARE  OPTIONAL  REPEATS. 
<EXPR3>i  :-<EXPR4>(  <*  OR  / XEXPR4  >)(....  ) 

<EXPR4 > : : -<VARIABLE> 

< FUNCTION  > 

( <EXPR>  > 

<EXPR>  IS  RECURSIVE  SO  THAT  VARIABLE  '0'  CAN  HAVE  AN  <EXPR> 
AS  INDEX,  FUNCTIONS  CAN  HAVE  AN  <EXPR>  AS  ARGUMENTS,  AND 
<EXPR4  > CAN  BE  AN  <EXPR>  IN  PARANTHESE. 


* 

EXPR 

CALL 

EXPR2 

THIS  IS  AT  LOC.  18 

* 

PUSH 

HL 

SAVE  < EXPR2  > VALUE 

0411 

21DE01 

EXPR1 

LODI 

HL , TAE8-1 

LOOKUP  REL. OP. 

0414 

C3F801 

JMP 

EXEC 

GO  DO  IT 

0417 

CD4004 

XP11 

CALL 

XP1 8 

REL . OP . " > - " 

04 1A 

D8 

RET 

C 

NO,  RETURN  HL-0 

04  IB 

6 F 

LOD 

L , A 

YES,  RETURN  HL-1 

04  1C 

C9 

RET 

U 

04  ID 

CD4004 

XP12 

CALL 

XP18 

REL. OP. "#" 

0420 

C8 

RET 

Z 

FALSE,  RETURN  HL-0 

0421 

6F 

LOD 

L , A 

TRUE.  RETURN  HL-1 

0422 

C9 

RET 

U 

0423 

CD4004 

xi>13 

CALL 

XP18 

REL. OP. ">" 

0426 

C8 

RET 

Z 

FALSE 

0427 

D8 

RET 

c 

ALSO  FALSE,  HL-0 

0428 

6F 

LOD 

L,A 

TRUE,  HL-1 

04  2 9 

C9 

RET 

U 

04  2A 

CD 4 004 

XP1 4 

CALL 

XP18 

REL . OP . 

04  2D 

6 F 

LOD 

L , A 

SET  HL-1 

042E 

C8 

RET 

Z 

REL.  TRUE,  RETURN 

04  2 F 

D3 

RET 

C 

0430 

6C 

LOD 

L,H 

ELSE  SET  HL-0 

0431 

C9 

RET 

U 

0432 

CD4004 

XP15 

CALL 

XP18 

REL . OP . 

04  3 5 

C0 

RET 

NZ 

FALSE,  RE; RUN  HL-0 

04  3 6 

6 F 

LOD 

L , A 

ELSE  SET  HL-1 

04  3 7 

C 9 

RET 

U 

0438 

CD4004 

XP16 

CALL 

XP18 

REL. OP. "<" 

14 
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043B 

D0 

RET 

NC 

FALSE,  RETURN  HL-0 

04  3 C 

6 F 

LOD 

L , A 

ELSE  SET  HL-1 

0430 

C9 

RET 

U 

04  3 E 

El 

XP17 

POP 

HL 

NOT  REL.OP. 

043F 

C9 

RET 

U 

RETURN  HL“< EXPR2  > 

0440 

79 

XP18 

LOD 

A , C 

SUBROUTINE  FOR  ALL 

0441 

E1C1 

POP 

HL , BC 

REL.OP. 'S 

0443 

E5C5 

PUSH 

HL,BC 

REVERSE  TOP  OP  STACK 

0445 

4 F 

LOD 

C , A 

0446 

CD5504 

CALL 

EXPR2 

GET  2ND  <EX?R2> 

04  4 9 

EB 

XCH 

HL,DE 

VALUE  IN  DE  NOW 

044A 

E3 

XCH 

HL,( SP) 

1ST  < EXPR2  > IN  HL 

044B 

CD7605 

CALL 

CKHLDE 

COMPARE  1ST  WITH  2ND 

04  4 E 

D1 

POP 

DE 

RESTORE  TEXT  POINTER 

04  4F 

2 1 0000 

LODI 

HL , 0 

SET  HL-0,  A- 1 

0452 

3E01 

LODI 

A . 1 

0454 

n 

C9 

RET 

U 

0455 

CF 

EXFR2 

TSTC 

,XP2 1 

NAGATIVE  SIGN? 

0456 

2D 

0457 

06 

0458 

210000 

LODI 

HL , 0 

YES,  FAXE  '0-1 

04  5B 

C37F04 

JMP 

XP26 

TREAT  LIKE  SUBTRACT 

045E 

CF 

XP2 1 

TSTC 

• , XP22 

POSITIVE  SIGN?  IGNORE 

045F 

2B 

0460 

00 

04  61 

CD8904 

XP22 

CALL 

EXPR3 

1ST  <EXPR3  > 

0464 

CF 

XP23 

TSTC 

■ ,XP2  5 

ADD? 

0465 

2B 

0466 

15 

04  6 7 

E5 

PUSH 

HL 

YES,  SAVE  VALUE 

04  6 8 

CD8904 

CALL 

EXPR3 

GET  2ND  < EXPR3  > 

04  6B 

EB 

XP24 

XCH 

HL , DE 

2ND  IN  DE 

04  6C 

E3 

XCH 

HL , l SP) 

1ST  IN  HL 

0460 

7 C 

LOD 

A , H 

COMPARE  SIGN 

046E 

AA 

XOR 

D 

046F 

7A 

LOD 

A , D 

0470 

19 

ADD 

HL , DE 

04  71 

01 

POP 

DE 

RESTORE  TEXT  POINTER 

0472 

FA6404 

JMP 

S ,XP23 

1ST  2ND  SIGN  DIFFER 

04  7 5 

AC 

XOR 

H 

1ST  2ND  SIGN  EQUAL 

0476 

F26404 

JMP 

MS  ,XP2  3 

SO  IS  RESULT 

0479 

C39F00 

JMP 

DHOW 

ELSE  WE  HAVE  OVERFLOW 

04  7C 

CF 

XP25 

TSTC 

, XP4 2 

SUBTRACT? 

047D 

2D 

047E 

83 

047F 

E5 

XP26 

PUSH 

HL 

YES,  SAVE  1ST  <EXPR3> 

0480 

CD3904 

CALL 

EXPR3 

GET  2ND  <.  EXPR3  > 

0483 

CD6A05 

CALL 

CUGSGN 

NEGATE 

0486 

• 

C36B04 

JMP 

XP24 

AND  ADD  THEM 

0489 

CDE604 

EXPR3 

CALL 

EXPR4 

GET  1ST  < EXPR4  > 

048C 

CF 

XP3 1 

TSTC 

, XP3  4 

MULTIPLY? 

048D 

2A 

048E 

2C 

048F 

E5 

PUSH 

HL 

YES,  SAVE  1ST 

0490 

CDE604 

CALL 

EXPR4 

AND  GET  2ND  <EXPR4> 

0493 

0600 

LODI 

B , 0 

CLEAR  B FOR  SIGN 

0495 

CDS  705 

CALL 

CHKSGN 

CHECK  SIGN 

0498 

EB 

XCH 

HL , DE 

2ND  IN  PE  NOW 

15 
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0499 

E3 

XCH 

HL , ( S P ) 

1ST  IN  HL 

049A 

CD6705 

CALL 

CHKSGN 

CHECK  SIGN  OF  1ST 

049D 

7C 

LOD 

A,H 

IS  HL  > 255  ? 

04  9 E 

B7 

IOR 

A 

049F 

CAA804 

JMP 

Z.XP32 

NO 

04A2 

7A 

LOD 

A,D 

YES,  HOW  ABOUT  DE 

04A3 

B2 

IOR 

D 

04A4 

EB 

XCII 

HL , DE 

PUT  SMALLER  IN  HL 

04A5 

C2A000 

JMP 

NZ.AHOW 

ALSO  >,  WILL  OVERFLOW 

04  AS 

7D 

XP32 

LOD 

A , L 

THIS  IS  DUMB 

04A9 

210000 

LODI 

HL , 0 

CLEAR  RESULT 

04  AC 

B7 

IOR 

A 

ADD  AND  COUNT 

04  AD 

CAD804 

JMP 

Z.XP35 

04B0 

19 

XP33 

ADD 

HL , DE 

04B1 

DAA000 

JMP 

C ,AHOW 

OVERFLOW 

04B4 

3D 

DEC 

A 

04B5 

C2B004 

JMP 

NZ.XP33 

04B8 

C3D804 

JMP 

XP3  5 

FINISHED 

04  BB 

CF 

XP34 

TSTC 

•/’  ,XP42 

DIVIDE? 

04  BC 

2F 

04BD 

44 

04BE 

E5 

PUSH 

HL 

YES,  SAVE  1ST  <EXPR4> 

04BF 

CDE604 

CALL 

EXPR4 

AND  GET  2ND  ONE 

04C2 

0600 

LODI 

B , 0 

CLEAR  B FOR  SIGN 

04C4 

CD6705 

CALL 

CHKSGN 

CHECK  SIGN  OF  2ND 

04C7 

EB 

XCH 

HL , DE 

PUT  2ND  IN  DE 

04C8 

E3 

XCH 

HL  ,(  SP) 

GET  1ST  IN  HL 

04C9 

CD6705 

CALL 

CHKSGN 

CHECK  SIGN  OF  1ST 

04CC 

7A 

LOD 

A , D 

DIVIDE  BY  0? 

04CD 

B3 

IOR 

E 

04CE 

CAA 000 

JMP 

Z.AHOW 

SAY  "HOW?" 

04D1 

C5 

PUSH 

BC 

ELSE  SAVE  SIGN 

04D2 

CD4A05 

CALL 

DIVIDE 

USE  SUBROUTINE 

04D5 

6069 

LOD 

HL , BC 

RESULT  IN  HL  NOW 

04D7 

Cl 

POP 

BC 

GET  SIGN  BACK 

04D8 

Dx 

XP35 

POP 

DE 

AND  TEXT  POINTER 

04D9 

7C 

LOD 

A , H 

HL  MUST  BE  ♦ 

04  DA 

B7 

IOR 

A 

04DB 

PA9F00 

JMP 

S , QHOW 

ELSE  IT  IS  OVERFLOW 

04DE 

78 

LOD 

A,B 

04  DF 

B7 

IOR 

A 

04E0 

FC6A05 

CALL 

S , CHGSGH 

CHANGE  SIGN  IF  NEEDED 

04E3 

* 

C38C04 

JMP 

XP31 

LOOK  FOR  MORE  TERMS 

04E6 

2 1A001 

EXPR4 

LODI 

HL , TAB 4 -1 

FIND  FUNCTION  IN  TAB 4 

04E9 

C3F801 

JMP 

EXEC 

AND  GO  DO  IT 

04  EC 

FF 

XP40 

TSTV 

NO,  NOT  A FUNCTION 

04  ED 

DAF504 

JMP 

C.XP41 

NOR  A VARIABLE 

04F0 

7E 

LOD 

A , M 

VARIABLE 

04  FI 

23 

INC 

HL 

04F2 

66 

LOD 

H , M 

7ALUE  IN  HL 

04F3 

6F 

LOD 

L , A 

04F4 

C9 

RET 

U 

04F5 

CD7700 

XP4 1 

CALL 

TSTNUM 

OR  IS  IT  A NUMBER 

04F8 

78 

LOD 

A,B 

* OF  DIGIT 

04F9 

B7 

IOR 

A 

04  FA 

C0 

RET 

NZ 

OX 

04  FB 

CF 

PARN 

TSTC 

'<  ' , XP4  3 

NO  DIO IT,  MUST  BE 

04  FC 

28 

04FD 

05 

16 
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04FE 

DF 

EXPR 

"( EXPR)" 

24FF 

CF 

TSTC 

’ ) ' ,XP4 3 

0 522 

29 

050i 

01 

0522 

C 9 

XP4  2 

RET 

U 

0523 

n 

C3A405 

XP4  3 

JMP 

QWHAT 

ELSE  SAY:  "WHAT?" 

2526 

CDFB04 

RND 

CALL 

PARN 

***  RND(EXPR)  >>* 

2523 

7 C 

LOD 

A , H 

EXPR  MUST  BE  ♦ 

050A 

B1 

IOR 

A 

0523 

FA9F00 

JMP 

S ,QHOW 

050E 

B 5 

IOR 

L 

AND  NON-ZERO 

050F 

CA9F00 

JMP 

S , QHOW 

0512 

D5E5 

FUSH 

DE , HL 

SAVE  BOTH 

0514 

2A1108 

LD 

HL , RANPNT 

GST  MEMORY  AS  RANDOM 

0517 

11FF07 

LODI 

DE , LSTROM 

NUMBER 

051A 

E7 

COMP 

051B 

DA2105 

JMP 

C , RA1 

WRAP  AROUND  IF  LAST 

2 5 IE 

210000 

LODI 

HL, START 

0521 

5E 

RA1 

LOD 

E,M 

0522 

23 

INC 

HL 

0523 

56 

LOD 

D , M 

0524 

221108 

ST 

HL, RANPNT 

2527 

£1 

POP 

HL 

0528 

EB 

XCH 

HL,DE 

0529 

C 5 

PUSH 

3C 

052A 

CD4A05 

CALL- 

DIVIDE 

RND( N)-KOD(  M , N ) ♦ 1 

052D 

C1D1 

FOP 

EC , DE 

052F 

23 

INC 

HL 

0530 

C9 

RET 

U 

0531 

CDFB04 

ABS 

CALL 

PAP.N 

•**  ABS(EXPS)  *** 

0534 

CD6725 

CALL 

CHKSGN 

CHECK  SIGN 

0537 

7C 

LOD 

A , H 

NOTE  THAT  -3276S 

0538 

B4 

IOR 

H 

CANNOT  CHANGE  SIGN 

0539 

FA9F00 

JMP 

s , ohOw 

SO  SAY:  "HOW? " 

053C 

C9 

RET 

U 

05  3D 

2A1308 

SIZE 

LD 

HL , TXTUNF 

***  SIZE  *"* 

0540 

D5 

PUSH 

DE 

GET  THE  NUMBER  OF  FREE 

0541 

EB 

XCH 

HL , DE 

SYTES  BETWEEN  'TXTUNF' 

054  2 

2 1001F  9000 

LODI 

HL , VARBGN 

AND  'VARBGN' 

0545 

CD6005 

CALL 

SUBDE 

0548 

D1 

POP 

DE 

0549 

C 9 

RET 

U 

***  DIVIDE  SUEDE  •••  CHKSGN  *•«  CHGSGN  ***  & CKHLDE 

•DIVIDE'  DIVIDES  HL  BY  D£,  RESULT  IN  BC , REMAINDER  IN  HL 
' SUBDE ’ SUBTRACTS  DE  FROM  HL 

•CHKSGN’  CHECXS  SIGN  OF  HL.  IF  ♦,  NO  CHANGE.  IF  CHANGE 
SIGH  AND  FLIP  SIGN  OF  B. 

'CHGSGN'  CHNGES  SIGN  OF  HL  AND  B UNCONDITIONALLY. 

’ CKHLDE ' CHECKS  SIGN  OF  HL  AND  DE.  IF  DIFFERENT,  KL  AND  DE 
ARE  INTERCHANGED.  IF  SAME  SIGN,  NOT  INTERCHANGED.  EITHER 

17 


53 


• CASE,  HL  DE  ARE  THEN  COMPARED  TO  SET  THE  FLAGS. 


• 

Z54A 

E5 

DIVIDE 

PUSH 

HL 

*•*  DIVIDE  *** 

2543 

ec 

LCD 

L,H 

DIVIDE  H BY  DE 

254  C 

2622 

LODI 

H , 2 

254E 

CD5535 

CALL 

DV1 

2 5 51 

41 

LOD 

E,C 

SAVE  RESULT  IN  B 

2 5 52 

7D 

LOD 

A , L 

< REMAINDERED  /DE 

2553 

El 

POP 

KL 

2554 

67 

LOD 

H , A 

0555 

2EFF 

DV1 

LODI 

C.-l 

RESULT  IN  C 

2557 

00 

DV2 

INC 

C 

DUMB  ROUTINE 

35  58 

CD6025 

CALL 

SUBDE 

DIVIDE  BY  SUBTRACT 

B 55B 

D25725 

JMP 

NC ,DV2 

AND  COUNT 

055E 

19 

ADD 

HL  ,DE 

055F 

» 

C9 

RET 

U 

2 562 

7D 

SUBDE 

LOD 

A , L 

■**  SUBDE  *** 

2561 

93 

SUB 

E 

SUBTRACT  DE  FROM 

2562 

6F 

LOD 

L , A 

HL 

2563 

7C 

LOD 

A,  H 

2564 

9A 

SBB 

D 

2565 

67 

LOD 

H , A 

2566 

• 

C9 

RET 

U 

2567 

7C 

CHKSGN 

LOD 

A , H 

***  CHKSGN  *** 

2568 

B7 

IOR 

A 

CHECK  SIGN  OF  HL 

2569 

* 

F0 

RET 

NS 

IF  -,  CHANGE  SIGN 

256A 

7 C 

CHGSGN 

LOD 

A , H 

***  CHGSGN  *** 

256B 

2 F 

CMA 

» 

CHANGE  SIGN  OF  KL 

256C 

67 

LOD 

H , A 

056D 

7D 

LOD 

A , L 

256E 

2 F 

CMA 

1 

356  F 

6F 

LOD 

L , A 

2572 

23 

INC 

HL 

2571 

78 

LOD 

A , E 

AND  ALSO  FLIP  B 

2572 

EE82 

XORI 

X ’ 82 ' 

2 574 

47 

LOD 

3,  A 

2575 

* 

C9 

RET 

U 

2576 

7C 

CKHLDE 

LOD 

A.H 

2577 

AA 

XOR 

D 

SAME  SIGN? 

0578 

F27C05 

JMP 

NS, CKl 

YES , COMPARE 

257B 

EB 

XCH 

HL , DE 

NO,  XCH  AND  COMP 

257C 

E7 

CKl 

COMP 

257D 

* 

C9 

RET 

U 

• ***  SETVAL  ***  FIN  •**  ENDCHK  ***  6 ERROR  (6  FRIENDS)  *** 

* 

* "SETVAL"  EXPECTS  A VARIABLE,  FOLLOWED  BY  AN  EQUAL  SIGN  AND 

* TEEN  AN  EXPR.  IT  EVALUATES  THE  EXPR.  AND  SET  THE  VARIABLE 

* TO  THAT  VALUE. 

V 

* “FIN"  CHECKS  THE  END  OF  A COMMAND . IF  IT  ENDED  WITH  " ; " , 

* EXECUTION  CONTINUES.  IF  IT  ENDED  WITH  A CR,  IT  FINDS  THE 

* NEXT  LINE  AND  CONTINUE  FROM  THERE. 

* 
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"ENDCHK"  CHECKS  IF  A COMMAND  IS  ENDED  WITH  CR.  THIS  IS 
REQUIRED  IN  CERTAIN  COMMANDS.  I GOTO , RETURN,  AND  STOP  ETC.) 

’ERROR"  PRINTS  THE  STRING  POINTED  BY  DE  (AND  ENDS  WITH  CR). 
IT  THEN  PRINTS  THE  LINE  POINTED  BY  'CUP.RNT'  WITH  A "?” 
INSERTED  AT  WHERE  THE  OLD  TEXT  POINTER  l SHOULD  BE  ON  TOP 
OF  THE  STACK)  POINTS  TO.  EXECUTION  OF  T3  IS  STOPPED 
AND  TEI  IS  RESTARTED.  HOWEVER,  IF  ’ CURRNT ’ ->  ZERO 

(INDICATING  A DIRECT  COMMAND),  THE  DIRECT  COMMAND  IS  NOT 
PRINTED.  AND  IF  ’CURRNT’  ->  NEGATIVE  # l INDICATING  ’INPUT’ 
COMMAND,  THE  INPUT  LINE  IS  NOT  PRINTED  AND  EXECUTION  IS 
NOT  TERMINATED  BUT  CONTINUED  AT  ’INFER?.'. 

RELATED  TO  ’ERROR’  ARE  THE  FOLLOWING r 

' OWKAT ’ SAVES  TEXT  POINTER  IN  STACK  AND  GET  MESSAGE  "WHAT?" 
'AWHAT’  JUST  GET  MESSAGE  "WHAT?"  AND  JUMP  TO  'ERROR'. 

' CSCRRY 1 AND  'ASORRY'  DO  SAMS  KIND  OF  THING. 

’ QHOW’  AND  ’ AHCW ’ IN  THE  2ERO  PAGE  SECTION  ALSO  DO  THIS 


057E 

F? 

SETVAL 

TSTV 

*•*  SETVAL  *** 

05  7 F 

DAA405 

JMP 

C , QWHAT 

"WHAT? ” NO  VARIABLE 

0532 

E 5 

PUSH 

HL 

SAVE  ADDRESS  OF  VAR. 

0582 

CF 

TSTC 

’ -’ ,SV1 

PASS  SIGN 

0584 

3D 

05  S 5 

08 

0586 

DF 

EX  PR 

EVALUATE  EXPR. 

0537 

4 4 4 D 

LOD 

BC , HL 

VALUE  IN  BC  NOW 

0589 

El 

POP 

HL 

GET  ADDRESS 

058A 

7 i 

LOD 

M,  C 

SAVE  VALUE 

058B 

23 

INC 

HL 

053C 

70 

LOD 

M.B 

05  3D 

C 9 

RET 

U 

058E 

* 

C3A405 

SVi 

JMP 

QWHAT 

NO  SIGN 

0591 

CF 

FIN 

TSTC 

’ j ’ ,FI1 

* * * FTN  * * * 

0592 

23 

0593 

04 

0594 

FI 

POP 

AF 

PURGE  RET.  ADDR. 

0595 

C 3 4 902 

JK? 

RUNSML 

CONTINUE  SAME  LINE 

059c 

CF 

FI1 

TSTC 

SCR, FI2 

NOT  ” ; " , IS  IT  CR? 

0599 

0D 

059  A 

34 

052B 

FI 

POP 

AF 

YES,  PURGE  RET.  ADDR. 

055C 

C 3 3 902 

JMP 

RUNNXL 

RUN  NEXT  LINE 

059F 

* 

C9 

FI2 

RET 

U 

ELSE  RETURN  TO  CALLER 

0 5A0 

EF 

ENDCHK 

IGNBLK 

***  ENDCHK  •** 

05A1 

FEUD 

CMPI 

SCR 

END  WITH  CR? 

05A3 

* 

C 3 

RET 

Z 

OK,  ELSE  SAY i "WHAT?” 

05A4 

D5 

QWHAT 

PUSH 

DE 

***  QWHAT  •** 

0 5A5 

11AE00 

AWHAT 

LODI 

DE , WHAT 

***  AWHAT  "»« 

05A8 

97 

ERROR 

SUB 

A 

’*»  ERROR  **• 

05A9 

CD3C06 

CALL 

PRTSTG 

PRINT  'WHAT?',  'HOW?' 

0 SAC 

D1 

per 

DE 

OR  'SORRY' 

0 5AD 

1A 

LD 

A , ( DE ) 

SAVE  THE  CHARACTER 

05AE 

F 5 

PUSH 

AF 

AT  WHERE  OLD  DE  -> 

0 5AF 

97 

SUB 

A 

AND  PUT  A 0 THERE 

0 5B0 

12 

ST 

A,( DE) 

0531 

2A0108 

LD 

HL, CURRNT 

GET  CURRENT  LINE  ♦ 
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05B4 

E5 

PUSH 

HL 

05B5 

7E 

LOD 

A , M 

CHECK  THE  VALUE 

05B6 

23 

INC 

HL 

05S7 

E6 

IOR 

M 

05B8 

D1 

POP 

DE 

05B9 

CA0000 

JMP 

Z .START 

IF  ZERO,  JUST  RESTART 

05BC 

7 E 

LOD 

A ,M 

IF  NEGATIVE, 

05BD 

B7 

IOR 

A 

0SBE 

FAA703 

JMP 

S , INPERR 

REDO  INPUT 

05C1 

CDAA06 

CALL 

PRTLN 

ELSE  PRINT  THE  LINE 

05C4 

IB 

DEC 

DE 

UPTO  WHERE  THE  0 IS 

05C5 

FI 

POP 

AF 

RESTORE  THE  CHARACTER 

05C6 

12 

ST 

A,(  DE) 

05C7 

3E3F 

LODI 

A, 

PRINT  A "?’’ 

05C9 

D7 

OUTC 

05CA 

97 

SUB 

A 

AND  THE  REST  OF  THE 

0 5CB 

CD3C06 

CALL 

PRTSTG 

LINE 

05CE 

C7 

RSTART 

THEN  RESTART 

05CF 

D 5 

OSORRY 

PUSH 

DE 

**•  OSORRY  «** 

05D0 

11B400 

ASORRY 

LODI 

DE, SORRY 

***  ASORRY  *** 

05D3 

C3A305 

JMP 

ERROR 

GETLN  ***  FNDLN  < & FRIENDS)  *** 

' GETLN ' READS  A INPUT  LINE  INTO  'BUFFER'.  IT  FIRST  PROMPT 
THE  CHARACTER  IN  A (GIVEN  BY  THE  CALLER),  THEN  IT  FILLS  THE 
THE  BUFFER  AND  ECHOS.  IT  IGNORES  LF’S  AND  NULLS,  BUT  STILL 
ECHOS  THEM  BACK.  RUB-OUT  IS  USED  TO  CAUSE  IT  TO  DELETE 
THE  LAST  CHARATER  ( IF  THERE  IS  ONE),  AND  ALT-MOD  IS  USED  TO 
CAUSE  IT  TO  DELETE  THE  WHOLE  LINE  AND  START  IT  ALL  OVER. 

CR  SIGNALS  THE  END  OF  A LINE,  AND  CAUSE  ’GETLN’  TO  RETURN. 

'FNDLN'  FINDS  A LINE  WITH  A GIVEN  LINE  * 'IN  HL > IN  THE 
TEXT  SAVE  AREA.  DE  IS  USED  AS  THE  TEXT  POINTER.  IF  THE 
LINE  IS  FOUND,  DE  WILL  POINT  TO  THE  BEGINNING  CF  THAT  LINE 
(I.E.,  THE  LOW  BYTE  OF  THE  LINE  #),  AND  FLAGS  ARE  NC  6 Z. 

IF  THAT  LINE  IS  NOT  THERE  AND  A LINE  WITH  A HIGHER  LINE  # 

IS  FOUND,  DE  POINTS  TO  THERE  AND  FLAGS  ARE  NO  & NZ  . IF 
WE  REACHED  THE  END  CF  TEXT  SAVE  ARE  AND  CANNOT  FIND  THE 
LINE,  FLAGS  ARE  C a NS . 

’FNDLN’  WILL  INITIALIZE  DE  TO  THE  BEGINNING  OF  THE  TEXT  SAVE 
AREA  TO  START  THE  SEARCH.  SOME  OTHER  ENTRIES  OF  THIS 
ROUTINE  WILL  NOT  INITIALIZE  DE  AND  DO  THE  SEARCH. 

’ FNDLN? ' WILL  STAP.T  WITH  DE  AND  SEARCH  FOR  1HE  LINE  #. 

' FNDNXT ’ WILL  BUMP  DE  BY  2.  FIND  A CR  AND  THEN  START  SEARCH. 

' FNDSKP ' USE  DE  TO  FIND  A CR,  AND  THEN  STRART  SEARCH. 


05D6 

D7 

GETLN 

OUTC 

***  GETLN  *»* 

05D7 

1 1 3 7 IF  3339 

LODI 

DE, BUFFER 

PROMPT  AND  INIT . 

0 5DA 

CD3207 

GL1 

CALL 

CHXIO 

CHECK  KEYBOARD 

05DD 

CADA05 

JMP 

Z ,GL1 

NO  INPUT,  WAIT 

05E0 

D7 

OUTC 

INPUT,  ECHO  BACK 

05E1 

FE0A 

CMP  I 

0LF 

IGNORE  LF 

05E3 

CADA05 

JMP 

Z,GL1 

05E6 

E 7 

IOR 

A 

IGNORE  NULL 

05E7 

CADA05 

JMP 

Z ,GL1 

05EA 

FE7F 

CMP  I 

3DLCH 

DELETE  LAST  CHARACTER? 

05  EC 

CAFF05 

JMP 

Z ,GL3 

YES 

20 
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* ■*'  PRTSTG  **♦  QTSTG  ***  PRTNUM  «.  PRTLN  **• 

* 

* ' PRTSTG ’ PRINTS  A STRING  POINTED  BY  DE.  IT  STOPS  FRINTING 

* AND  RETURNS  TO  CALLER  WHEN  EITHER  A CR  IS  PRINTED  CP.  WHEN 

* THE  NEXT  BYTE  IS  THE  SAME  AS  WHAT  WAS  IN  A (GIVEN  BY  THE 
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CALLER).  OLD  A IS  STORED  IN  B,  OLD  B IS  LOST. 

•QTSTG'  LOOKS  FOR  A BACK-ARROW,  SINGLE  QUOTE,  OR  DOUBLE 
QUOTE.  IF  NONE  OF  THESE,  RETURN  TO  CALLER.  IF  BACK-ARROW, 
OUTPUT  A CR  WITHOUT  A LF . IF  SINGLE  OR  DOUBLE  QUOTE,  PRINT 
THE  STRING  IN  THE  QUOTE  AND  DEMANDS  A MATCHING  UNQUOTE. 

AFTER  THE  PRINTING  THE  NEXT  3 3YTES  OF  THE  CALLER  IS  SKIPPED 
OVER  (USUALLY  A JUMP  INSTRUCTION). 

’PRTNUM'  PRINTS  THE  NUMBER  IN  HL . LEADING  BLANKS  ARE  ADDED 
IF  NEEDED  TO  PAD  THE  NUMBER  OF  SPACES  TO  THE  NUMBER  IN  C. 
HOWEVER,  IF  THE  NUMBER  OF  DIGITS  IS  LARGER  THAN  THE  * IN 
C,  ALL  DIGITS  ARE  PRINTED  ANYWAY.  NEGATIVE  SIGN  IS  ALSO 
PRINTED  AND  COUNTED  IN,  POSITIVE  SIGN  IS  NOT. 

' PRTLN'  PRINTS  A SAVED  TEXT  LINE  WITH  LINE  # AND  ALL. 


063C 

47 

PP.TSTG 

LOD 

B , A 

***  PRTSTG  *** 

06  3D 

1A 

PS1 

LD 

A,(  DE) 

GET  A CHARACTER 

063E 

13 

INC 

DE 

BUMP  POINTER 

063F 

B8 

CMP 

B 

SAME  AS  OLD  A? 

0640 

C8 

RET 

Z 

YES,  RETURN 

0641 

D7 

OUTC 

ELSE  PRINT  IT 

0642 

FE0D 

CMPI 

0CR 

WAS  IT  A CR? 

0644 

C23D06 

JMP 

NZ.PS1 

NO,  NEXT 

0647 

* 

C 9 

RET 

U 

YES,  RETURN 

0648 

CF 

QTSTG 

TSTC 

, QT3 

***  QTSTG  *** 

0649 

22 

06  4 A 

0F 

0643 

3E22 

LODI 

A.  ' " ’ 

IT  IS  A " 

064D 

CD3C06 

QT1 

CALL 

FRTSTG 

PRINT  UNTIL  ANOTHER 

0650 

FEUD 

CMPI 

acR 

WAS  LAST  ONE  A CR? 

0652 

El 

POP 

HL 

RETURN  ADDRESS 

0653 

CA3S02 

JMP 

2 , RUNNXL 

WAS  CR,  RUN  NEXT  LINE 

0656 

232323 

rj 

H 

O 

INC 

HL,  3 

SKIP  3 BYTES  ON  RETURN 

0659 

E9 

JMP 

( HL) 

RETURN 

06  5A 

CF 

QT3 

TSTC 

0QT.QT4 

IS  IT  A ’ ? 

065B 

27 

065C 

05 

06  5D 

3E27 

LODI 

A.QQT 

YES,  DO  SAME 

065F 

C34D06 

JMP 

QT1 

AS  IN  " 

0662 

CF 

QT4 

TSTC 

03KA.QT5 

IS  IT  BACK-ARROW? 

0663 

5F 

0664 

08 

0665 

3 E3D 

LODI 

A , X 1 8D  ' 

YES,  CR  WITHOUT  LF 

0667 

D7 

OUTC 

DO  IT  TWICE  TO  GIVE 

0668 

D7 

OUTC 

TTY  ENOUGH  TIME 

0669 

El 

POP 

HL 

RETURN  ADDRESS 

066A 

C35606 

JMP 

QT2 

. 

066D 

* 

C9 

QT5 

RET 

U 

NONE  OF  ABOVE 

066E 

D5 

PRTNUM 

PUSH 

DE 

PRTNUM  *** 

066F 

110A00 

LODI 

DE.  10 

DECIMAL 

0672 

D5 

PUSH 

DE 

SAVE  AS  A FLAG 

0673 

42 

LOD 

B,D 

B-SIGN 

0674 

0D 

DEC 

C 

C-SPACES 

0675 

CD6705 

CALL 

CHKSGH 

CHECK  SIGN 

06  7 8 

F27E06 

JMP 

NS.PN1 

SO  SIGN 

067B 

062D 

LODI 

B, 

B-SIGN 

22 
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067D 

0D 

DEC 

C 

■-•  TAKES  SPACE 

067E 

C5 

PN1 

PUSH 

BC 

SAVE  SIGN  U SPACE 

067F 

CD4A05 

PN2 

CALL 

DIVIDE 

DEVIDE  HL  BY  10 

0682 

78 

LOD 

A , B 

RESULT  0? 

0683 

B1 

IOR 

C 

0684 

CA3F06 

JMP 

Z.PN3 

YES,  WE  GOT  ALL 

0687 

E3 

XCH 

HL , ( SP ) 

NO,  SAVE  REMAINDER 

0688 

2D 

DEC 

L 

AND  COUNT  SPACE 

0689 

E5 

PUSH 

HL 

HL  IS  OLD  BC 

06  8A 

6069 

LOD 

HL , BC 

MOVE  RESULT  TO  BC 

068C 

C37F06 

JMP 

PN2 

AND  DIVIDE  BY  10 

068F 

Cl 

PN3 

POP 

BC 

WE  GOT  ALL  DIGITS  IN 

0690 

0D 

PN4 

DEC 

C 

THE  STACK 

0691 

79 

LOD 

A , C 

LOOK  AT  SPACE  COUNT 

0692 

B7 

IOR 

A 

0693 

FA9C06 

JMP 

S.PN5 

NO  LEADING  BLANKS 

0696 

3E20 

LODI 

A,  ’ ’ 

LEADING  BLANKS 

0698 

D7 

OUTC 

0699 

C39006 

JMP 

PN4 

MORE? 

069C 

78 

PN5 

LOD 

A , B 

PRINT  SIGN 

069D 

D7 

OUTC 

MAYBE  - OR  NULL 

069E 

5D 

LOD 

E,L 

LAST  REMAINDER  IN  E 

069F 

7B 

PN6 

LOD 

A , E 

CHECK  DIGIT  IN  E 

06A0 

FE0A 

CMP  I 

10 

10  IS  FLAG  FOR  NO  MORE 

06A2 

D1 

POP 

DE 

06  A3 

C8 

RET 

Z 

IF  SO,  RETURN 

06A4 

C630 

ADD! 

•0’ 

ELSE  COVERT  TO  ASCII 

06A6 

D7 

OUTC 

AND  PRINT  THE  DIGIT 

06A7 

* 

C39F06 

JMP 

PN6 

GO  BACK  FOR  MORE 

0SAA 

1A 

PRTLN 

LD 

A,( DE) 

***  PRTLN  *«* 

06AB 

6F 

LOD 

L , A 

LOW  ORDER  LINE  * 

06  AC 

13 

INC 

DE 

06  AD 

1A 

LD 

A,( DE) 

HIGH  ORDER 

06AE 

67 

LOD 

H,A 

06AF 

13 

INC 

DE 

06B0 

0E04 

LODI 

C , 4 

PRINT  4 DIGIT  LINE  ♦ 

06B2 

CD6E06 

CALL 

PRTNUM 

06B5 

3E20 

LODI 

A,  1 ’ 

FOLLOWED  BY  A BLANK 

05B7 

D7 

OUTC 

06B8 

97 

SUB 

A 

AND  THEN  THE  TEXT 

05B9 

CD3C0S 

CALL 

PRTSTG 

06BC 

C9 

RET 

U 

MVUP  «•*  MVDOWN  »**  POPA  »**  C.  PUSHA 

' MVUP ' MOVES  A BLOCK  UP  FROM  WHERE  DE->  TO  WHERE  EC->  UNTIL 
EE  - HL 

'MVDOWN'  MOVES  A BLOCK  DOWN  FROM  WHERE  DE->  TO  WHERE  HL-> 
UNTIL  DE  - BC 

■POPA'  RESTORES  THE  'FOR1  LOOP  VARIABLE  SAVE  AREA  FROM  THE 
STACK 

’PUSHA’  STACKS  THE  ’FOR1  LOOP  VARIABLE  SAVE  AREA  INTO  THE 
STACK 
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06BD 

E7 

MVUP 

COMP 

***  MVUP  *** 

06BE 

C8 

RET 

Z 

DE  - HL.  RETURN 

06BF 

1A 

LD 

A,(  DE) 

GET  ONE  BYTE 

06C0 

02 

ST 

A , { BC  ) 

MOVE  IT 

06C1 

13 

INC 

DE 

INCREASE  BOTH  POINTERS 

06C2 

03 

INC 

BC 

06C3 

C3BD06 

JMP 

MVUP 

UNTIL  DONE 

06C6 

78 

MVDOWN 

LOO 

A, 8 

***  MVDOWN  «** 

06C7 

92 

SUB 

D 

TEST  IF  DE  - BC 

06C3 

C2CE06 

JMP 

NZ , MD1 

NO,  GO  MOVE 

06CB 

79 

LOD 

A.C 

MAYBE,  OTHER  BYTE? 

06CC 

93 

SUB 

E 

06CD 

C8 

RET 

Z 

YES,  RETURN 

06CE 

IB 

MD1 

DEC 

DE 

ELSE  MOVE  A BYTE 

06CF 

2B 

DEC 

HL 

BUT  FIRST  DECREASE 

06D0 

1A 

LD 

A,(  DE) 

BOTH  POINTERS  AND 

06D1 

77 

LOD 

M,A 

THEN  DO  IT 

06D2 

ft 

C3C606 

JMP 

MVDOWN 

LOOP  BACK 

0605 

Cl 

POPA 

POP 

BC 

BC  - RETURN  ADDR. 

06D6 

El 

POP 

HL 

RESTORE  LOPVAR , BUT 

06D7 

220708 

ST 

HL.LOPVAR 

-0  MEANS  NO  MORE 

06DA 

7C 

LOD 

A , H 

06DB 

B5 

IOR 

L 

06  DC 

CAEF06 

JMP 

Z.PP1 

YEP,  GO  P.ETURN 

06DP 

El 

POP 

HL 

NOP,  RESTORE  OTHERS 

06E0 

220908 

ST 

HL, LOP INC 

06E3 

El 

POP 

HL 

06E4 

220B08 

ST 

HL , LOPLMT 

06E7 

El 

POP 

HL 

06E8 

220008 

ST 

HL , LOPLN 

06  EB 

El 

POP 

HL 

06EC 

220F03 

ST 

HL.LOPPT 

06EP 

C5 

PP1 

PUSH 

BC 

BC  - RETURN  ADDR. 

06  F0 

ft 

C9 

RET 

U 

06  PI 

21A71F  3300 

POSHA 

LODI 

HL , STKLMT 

*•*  PUSHA  ••• 

06P4 

CD6A05 

CALL 

CHGSGN 

06F7 

Cl 

POP 

BC 

BC-RETURN  ADDRESS 

06F8 

39 

ADD 

HL , SP 

IS  STACK  NEAR  THE  TOP? 

06F9 

D2CF05 

JMP 

NC , QSOPRY 

YES,  SORRY  FOR  THAT. 

06  FC 

2A0708 

LD 

HL.LOPVAR 

ELSE  SAVE  LOOP  VAR.S 

06FF 

7C 

LOD 

A.H 

BUT  IF  LOPVAR  IS  0 

0700 

B5 

IOR 

L 

THAT  WILL  BE  ALL 

0701 

CA1707 

JMP 

Z,PU1 

0704 

2A0F09 

LD 

HL.LCPPT 

ELSE,  MORE  TO  SAVE 

0707 

E5 

PUSH 

HL 

0708 

2A0D08 

LD 

HL, LOPLN 

070B 

E5 

PUSH 

HL 

07  0C 

2A0B08 

LD 

HL, LOPLMT 

070F 

E5 

PUSH 

HL 

0710 

2A0909 

LD 

HL, LOP INC 

0713 

E5 

PUSH 

HL 

0714 

2A0703 

LD 

HL.LOPVAR 

0717 

E5 

PUl 

PUSH 

HL 

0718 

C5 

PUSH 

BC 

BC  - RETURN  ADDR. 

0719 

C9 

RET 

U 
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•**  OUTC  ***  & CHKIO 


THESE  ARE  THE  ONLY  I/O  ROUTINES  IN  TBI. 

* OUTC  • IS  CONTROLLED  BY  A SOFTWARE  SWITCH  ’OCSW.  IF  OCSW-0 
' OUTC ' WILL  JUST  RETURN  TO  THE  CALLER.  IF  OCSW  IS  NOT  0, 

IT  WILL  OUTPUT  THE  BYTE  IN  A.  IF  THAT  IS  A CR,  A LF  IS  ALSO 
SEND  OUT.  ONLY  THE  FLAGS  KAY  BE  CHANGED  AT  RETURN,  ALL  REG. 
ARE  RESTORED. 

1 CHKIO ' CHECKS  THE  INPUT.  IF  NO  INPUT,  IT  WILL  RETURN  TO 
THE  CALLER  WITH  THE  Z FLAG  SET.  IP  THERE  IS  INPUT,  Z FLAG 
IS  CLEARED  AND  tTHE  INPUT  BYTE  IS  IN  A.  HOWERER,  IF  THE 
INPUT  IS  A CONT.ROL-0,  THE  'OCSW'  SWITCH  IS  COMPLIMENTED , AND 
Z FLAG  IS  RETURNED.  IF  A CONTROL-C  IS  READ,  ’CHKIO'  WILL 
RESTART  TBI  AND  DO  NOT  RETURN  TO  THE  CALLER. 


• 

OUTC 

PUSH 

AF 

THIS  IS  AT  LOC.  10 

* 

LD 

A, OCSW 

CHECK  SOFTWARE  SWITCH 

• 

IOR 

A 

07 1A 

C21F07  OC2 

JM? 

NZ , OC 3 

IT  IS  ON 

07  ID 

FI 

POP 

AF 

IT  IS  OFF 

07  1 E 

C9 

RET 

U 

RESTORE  AF  AND  RETURN 

07  1 F 

D300  OC3 

INP 

0 

COME  HERE  TO  DO  OUTPUT 

0721 

E602 

AND  I 

X 1 02  1 

STATUS  BIT 

0723 

CA1F07 

JMP 

Z ,OC3 

NOT  READY,  WAIT 

0726 

FI 

POP 

AF 

READY,  GET  OLD  A EACK 

0727 

D301 

OUT 

1 

AND  SEND  IT  OUT 

0729 

FE0D 

CMPI 

3CR 

WAS  IT  CR? 

0723 

C0 

RET 

KZ 

NO,  FINISHED 

072C 

3E0A 

LODI 

A.3LF 

YES,  WE  SEND  LF  TOO 

07  2 E 

D7 

OUTC 

THIS  IS  RECURSIVE 

072F 

3E0D 

LODI 

A,  SCR 

GET  CR  BACK  IN  A 

0731 

C9 

RET 

U 

0732 

I !?00  CHKIO 

INP 

0 

*•*  CHKIO  *** 

0734 

00 

NOP 

1 

STATUS  BIT  FLIPPED? 

07  3 5 

t'.fi  20 

AND  I 

X’  20’ 

MASK  STATUS  BIT 

07  3 7 

C8 

RET 

Z 

NOT  READY,  RETURN  " Z " 

0738 

DB01 

INP 

1 

READY,  READ  DATA 

073A 

E67F 

AND  I 

X ’ 7 F ’ 

MASK  BIT  7 OFF 

073C 

FE0F 

CMPI 

SCO 

IS  IT  CONTROL-O? 

07  3 E 

C24E07 

JMP 

NZ ,CI1 

NO,  MORE  CHECKING 

0741 

3A000S 

LD 

A,  OCSW 

CONTROL-O  FLIPS  OCSW 

0744 

2 F 

CMA 

f 

ON  TO  OFF,  OFF  TO  ON 

0745 

320008 

ST 

A, OCSW 

074  8 

C 2 3 207 

JMP 

CHKIO 

GET  ANOTHER  INPUT 

07  4B 

FE0  3 CI1 

CMPI 

OC  C 

IS  IT  CONTROL-C? 

07  4 D 

C 0 

RET 

NZ 

NO,  RETURN  "N2" 

07  4 E 

C 7 

RSTART 

YES,  RESTART  TSI 

07  4 F 

594F55204D415920 

CHAR 

’YOU  MAY  NEED  THIS  SPACE  TO' 

0757 

4E45454420544849 

075F 

5320535041434520 

0767 

5 4 4 F 

0769 

5041544348205550 

CHAR 

’ PATCH 

UP  THE  I/O  POUTINES , 1 

0771 

2.7544S45204S2F4F 

0779 

20524F5554494E45 

0781 

532C 

0783 

544F204649582055 

CHAR 

’TO  FIX 

UP  BUGS,  OR  TO  ADD' 

0783 

5020425547532C20 

079  3 

4FS220S44F204144 
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079B 
079C 
07A4 
07AC 
07B4 
07B8 
07C0 
07C8 
07D0 
07D1 
07D9 
07E1 
07E8 
07  F0 
07F8 
07FF 

0800 

0801 

0803 

0805 

0805 

0807 

0809 

080B 

080D 

080F 

0811 

0813 

0815 

1F00 

1F00 

1F36 

1F37 

1F7F 

1F7F 

1FA7 

2000 


44 

4D4F524520434F4D 

4D414E445320414E 

442046554E435449 

4F4E532E 

53  4B5 9 202853  504 1 

4345292049532054 

4845204C494D4954 

2 E 

474F4F44204C5543 

4B20414E4420474F 

4F44204259452B 

4C494348454E2057 

414E472C20313020 

4A5 54E4  5203  7 36 

LSTROM 


FF 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

1508 

C'j 


ocsw 

CURRNT 

STKGOS 

VARNXT 

STXINP 

LOP VAR 

LOPINC 

LOPLMT 

LOPLN 

LOPPT 

RANPNT 

TXTUNF 

TXTBGN 

TXTSND 

VARBGN 

BUFFER 

BUFEND 

STKLMT 

STACK 


CHAR  'MORE  COMMANDS  AND  FUNCTIONS.’ 


CHAR  ’SKY  (SPACE)  IS  THE  LIMIT.’ 


CHAR  ’GOOD  LUCK  AND  GOOD  BYE.' 


CHAR  'LICHEN  WANG,  10  JUNE  76' 


EQU  * ALL  ABOVE  CAN  BE  ROM 

ORG  X ' 0800 ' HERE  DOWN  MUST  BE  RAM 

DB  X’PF*  SWITCH  FOR  OUTPUT 

DW  0 POINTS  TO  CURRENT  LINE 

DW  0 SAVES  SP  IN  'GOSUB' 

EQU  * TEMP  STORAGE 

DW  0 SAVES  SP  IN  ‘INPUT’ 

DW  0 ’FOR'  LOOP  SAVE  AREA 

DW  0 INCREMENT 

DW  0 LIMIT 

DW  0 LINE  NUMBER 

DW  0 TEXT  POINTER 

DW  START  RANDOM  NUMBER  POINTER 

DW  TXTBGN  - HfNFILLED  TEXT  AREA 

ES  1 TEXT  SAVE  AREA  BEGINS 

EQU  VARBGN  TEXT  SAVE  AREA  ENDS 

ORG  X ' 1F00 ' 

DS  2*27  VARIABLE  0(0) 

DS  XL1  EXTRA  BYTE  FOR  BUFFER 

DS  XL 7 2 INPUT  BUFFER 

EQU  * BUFFER  ENDS 

DS  XL40  EXTRA  BYTES  FOR  STACK 

EQU  * TOP  LIMIT  FOR  STACK 

ORG  X ' 2000' 

EQU  • STACK  STARTS  HERE 

END 
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MODIFY  TINY  BASIC  TABLE  TO  INCLUDE  THIS 
COMMAND 


X 

cs 

<r 

X 

> 

X 

;V 

CD 

LU 

Ll 

i — 

LL. 

3 

z 

o 

CZi 

LU 

X 

X 

Ci 

CD 

zz 

LL 

z 

z 

X 

H 

X 

■c 

LU 

1- 

LL 

3 

I 

z 

X 

<r 

z 

L-* 

CJ 

<r 

CJ  !- 

t- 

<r 

X 

X 

o 

h- 

t-  Z 

CD 

z 

CD 

Cj 

z 

^■X 

<1  »-i 

z 

h- ! 

o 

3 

u.  CD 

X 

a 

o 

CD 

Ci 

x^ 

1— 

Cl 

O 

<E 

X 

z 

z 

X 

Cu 

G 

a 

CD 

<z 

L— 

CD 

L^ 

LL 

CD 

z 

H-  >- 

Ui 

z 

g 

Ci 

<z 

a 

Ci 

>- 

z 

X 

X 

X 

<r 

u: 

X 

z 

c 

z 

Ci 

CD 

X 

1- 

X 

o 

• 

z 

i-  h- 

LL. 

o 

H- 1 

X 

L-< 

1— 

ir—i 

uO 

LL 

z z z 

z 

CJ 

X 

I 

z 

u3 

X 

X 

z 

o 

FH  LU 

<r 

LU 

X 

X 

LH 

rH 

X 

Ci 

CD 

<x 

CJ 

o 

CD 

X 

LL 

LL 

X 

X 

X 

Cj 

Ci 

a 

<r 

cn 

Cl.  h- 

c 

X 

X 

X 

X 

'Ci 

CD 

I 

X 

Ll 

X 

X 

LL 

X I 

t- 

X 

Z 

X 

a 

>-  X 

o 

X 

X 

CD  CD 

V 

X 

<r 

V 

Ci 

X 

C3 

X 

X <Z 

X 

z 

LC  LL 

3 

H 

z 

X 

0*i 

z 

<r 

(2 J 

h- 

x 

1-  x 

LL. 

♦ 

a 

X z 

a 

1-  z 

LL 

3 

3 

c 

X 

Ci 

Ui 

* 

LL 

z u 

X 

c 

o 

X <1 

X 

LU  *-< 

LS 

<r 

<1 

►H 

X 

a 

>- 

o 

CD 

x a 

x 

z 

— mJ 

X CD 

X 

CD  X 

A 

CD 

LL 

Ui 

CD 

z 

4X 

«*.  « »> 

IX 

4 X 

<x 

* X 4X 

4 X 

4 X 4 X 

4 X 

4 X 

4 X 

4 X 

4 X 

4 X 

4 X 

Z 

V 

X X 

G 

X 

X 

X 

CD 

a 

ztr 

>- 

>-  CCi 

I 

u 

C O • 

LL 

*— l 

X 

T 

K 

o 

<1 

C 

c 

»-i 

CD 

tH 

u 

X X • 

z 

X 

LL 

X 

<E 

3 

in 

— j 

LU 

!A 

X c 

Cl 

Cj 

LU 

X X 

<r 

X 

-<C 

LL 

CD 

C-i 

X 

LU 

4—1 

LU 

3 

z <x 

tH 

LL 

!N  <r 

CD 

N 

LL 

X 

(Si 

3 

Cl 

Ci 

3, 

X 

Ci 

Ci 

X 

X 

■a  •> 

o 

CD 

as  m 

03 

t—i  *> 

X 

ID 

S3 

a 

<r 

c 

x 

CD  X 

X 

o o 

Q 

X 

LL 

; 

X 

X 

zz 

3 

X 

X 

X 

o 

H- 

X 

i- 

X 

1-  X 

X 

X Y~ 

LL 

Ui 

CD 

»— 1 

-J 

X 

L- 

t 

<r  3 

i3C 

CD 

a a 

CD 

X CD  CD 

u 

CD  X 

<r 

<1  CD 

z 

3 

3 

3 

<r 

c 

3 

C X 

a o 

O 

a 

Q Ci 

X 

CD 

X Ci 

Cl 

X CD 

u 

X X 

3 

Cl 

Cl 

Z 

X 

X 

Z 

X X 

X z 

• • 

xT 

X 

<i 

X 

h- 

Cl 

X 

CD 

Ui 

4 X 

m 

*r 

LD 

\ fi 

IX 

IX 

UD 

IX 

m 

O' 

r\ 

IX 

Ll 

O' 

o 

O 

O 

o 

o 

o 

o 

o 

4—4 

o 

o 

LL  TH 

S3 

CD 

O 

<r 

<t 

S3 

X) 

*-• 

O 

S3 

in 

o 

Q 

G 

<r 

•0 

<r 

X 

<r 

X 

ry- 

<z  o 

1—4 

03 

IN 

X 

ci 

X u 

Ci 

X Ci 

Ca 

L-J  N 

n 

in 

in  in 

X 

L-4 

Cj 

LU 

i— i 

4-4 

C X 

in 

CD  CO 

Ci 

Ci  X Ci 

o 

Q Ci 

X 

X X 

u 

X 

C 

D 

m 

X 

X 

O) 

X Ci 

ro  in 

T-! 

IN  O' 

X 

o 

ID 

LD 

L 

9 

c 

CD  o 

▼H 

in  S3 

r\ 

O' 

X 

Ll 

4—4 

O'  <r 

CD 

CD 

CD  CD 

in 

X jD 

UD 

5 

5 

I/O 

in  >o 

S3 

S3 

S3  S3 

S3 

S3 

S3 

S3 

r\  rs 

IX  IX 

tH 

r4  t-» 

O' 

rx 

rx  ,x 

IX 

X X 

rx 

IX  IX 

IX 

rx 

l\  rs 

(X 

O' 

iX 

r\ 

Pv  Px 

O'  O' 

o 

o 

o o 

o 

o 

o o 

o 

o o 

o 

o o 

o 

o 

o o 

O 

o 

o 

o 

O O 

o o 
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077B  l/>00  SPOO:  MUI  DrO 
07 7 D 7 A SPO:  MOO  A.D 
077E  FE04  CPI  4 

0700  CA9007  JZ  SP1  » FINISHED  1 SAMPLE r 4 BANDS 


0783  CDB507  CALL  GET 1 rNOr  GET  ANOTHER  BAND 

0786  77  MOV  Mr  A r STORE  SAMPLE 

0787  2B  DCX  H r ARRAY  STORED  BACKWARDS 


r 


A 

o 

00 

3 

u 

_l 

Cl 

LL 

A 

o 

2 

CO 

<Z 

A 

cc 

Ll 

00 

3 hi' 

3 

C 1- 

h- 

L— 

<r 

2 CD 

2 

CO 

X 

3 O 

2 X 

<E 

H 

• 

u 

x CD 

a 

Ci 

o 

3 C 

3 U 

tn 

3 

3 

2 

1-  1- 

uC 

C-* 

2 U 

Ld 

cz 

Q 

Lj 

L4 

Q 

O 2 

2 

L£ 

A 

A CO 

2 id 

u 

U X 

O 

3 

o 

2 

Id 

A A 

A X 

t- 

3 

A 

C 

Id  3 

P-  O 

CO 

u 

a 

A 

CO  A 

Ui  1 1- 

A X 

x 3 

CO 

i- 

3 2 

A i CO 

3 2 

CD  3 

2 

CO 

LL 

<r  <r 

C G id 

<1  M 

<X  M 

3 

o 

3 

a cn 

2 2 A 

CO  A 

2 A 

▼H 

A 

<k 

««k 

«»»  4X 

< •>  4X 

«•»  4Bl 

<x 

«•» 

A 

O 

<r 

A 

3 llO 

X 

3 

o 

3 

3 O 

rH 

O 

o © 

o 

A 

3 

o 

3 

3 

A x 

3 

3 

•l  * 

A 

3 

i-i 

A 

A 

CO 

A 

X 

3 

3 

© 2 

X 

A CO 

A 

3 

3 

CO 

3 

t— < 

A 

LL 

T* 

o 

3 A 
A 

A 

A 

<t  A 

A 

Li  3 

X 

A A 

<r 

3 A 

N 

3 

LL 

A 

LL  ►— 

CO 

LH 

X 

A 

LL 

A 

N 

A A 

A X 

3 a 

u 

2 2 

A 

© CJ 

2 

© 

O 

O 

O U 

3 

LL 

N 3 

C 

3 

CJ 

2 

CJ  2 

O 3 

2 2 

A 

X 3 

3 

U A 

3 

CJ 

Cl 

A 

LL  CC 

A 

CJ 

3 2 

2 

2: 

X 

3 

A 3 

A A 

«« 

«• 

3 

X 

♦ ♦ 

3 

• * 

© 

o 

t-M 

A 

H 

3 

-J 

3 

X 

A 

3 

u 

3 

3 

CO 

x 

Q 

A 

A 

rs 

is 

rs 

rs 

rs 

rs 

rs 

rs 

o 

o 

o 

o 

o 

© 

o 

© 

O 

A 

03 

H 

A 

'O 

o 

n cs 

O' 

CM 

c 

IS 

X 

<x 

rs 

CJ 

o 

A 'O 

© 

<r 

3 rs 

A 

<r  n 

© 

A A 

CM 

A x 

in 

3 

<r  S3 

o © in 

CM 

A f0 

m—4 

O' 

n is 

cm 
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13  REM  EMHAMCED  SPEECH  RECJGM  I i'lOM  PROGRAM 
23  REM PR0GR4M  1 

as  HEM MOD  ALLOWS  USER  TO  KEEP  WORD  1ARLES 

26  HEM  AS  DESIHED. 

30  0=13 

31  IMPUT  "CLEAH  TA8LES? « 1 FOH  YES, 2 FOR  MO"X 

32  IF  X = 2 GOTO  133 
3d  HEM  CLEAR  ['ARLES 
A3  FOH  1=3  TO  64*0-1 
S3  9(730+1 1=3 

m m* 1 

123  I N PUT  ,,l=r»2  = P,,X 

1 A 3 IF  X # 1 GOTO  173 

153  G0SJ3  1333 

163  GOTO  123 

173  IF  X * 2 GOTO  233 

183  G0SU3  2333 

19  1 => iH  I nI  T "RECOGM  I ZEDi  ">M 

231  GOTO  123 

213  PRIM  T "?" 

221  GOTO  123 

1333  HEM  TRAIM  IMG  HOU  TIME 

1313  INPUT  "M U MRER"M 

1315  IF  M > 0 PR  I M T "?"  GO  TO  1313 

1023  HEM  GET  SPEECH 

1331  G0SU3  3330 

13 A 3 HEM  GET  64  PARAMETERS 

13 S3  3=64 

13  61  FOR  J=  3 TO  S-l 

1373  9(  733+M+S+  J>  = 9 ( 633  + J) 

138  1 NEXT  J 
1391  RETURM 

2333  REM  ? EH F0RM4MCS  RO'JTIME 

2313  GOSJR  3333 

2323  FOR  1 = 664  TO  663  + 0 

2143  9 ( I ) = 3 

23  53  MSXT  I 

2163  FOR  1=3  TO  0-1 

237  3 FOH  J = 3 TO  S-l 

2941  X = A 3 S ( 9 ( 6 33  + J ) - 9 ( 733+S+I+J)  ) 

2393  IF  9(  664+1X27531  9(664+1  > = 3 ( 664+1  )+X*X 
2133  MEXT  J 
212  3 MEXT  I 

2133  REM  FIMD  SMALLEST  DIFFERENCE 
2143  A =32 333,  M = 3 
2153  FOH  1=3  TO  9 

2163  IF  H664+IXA  A=9  ( 664+ I > J M=  I 
217  3 MEXT  I 
2183  RETURM 

3333  RE.M  SPEECH  COLLECTIOM  ROOT  I ME 
3313  C = 3 

3323  SPEECH  153,13 
3333  T=6 

3343  FOH  I=C  TO  599  STEP  4 

3353  IF  9(I)+9(I+l)+9(I+2)>r  GOTO  3393 

33  61  NEXT  I 
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307  0 PRINT  "NO  SPEECH" 

308  3 RETURN 
l 3090  8=1 

31  33  D=3 

3110  FOR  I = D TO  599  STEP  4 

3120  IF  #<  I >+<*(  I+l  > + 3<  I+2><  T GO  TO  3163 

3130  NEXT  I 

3140  PRINT  "SPEECH  OUT  OF  '*  I N DO  to 
3150  RETURN 
316  3 E=  I 

313  0 L=CE-8)/4+l 

3193  IF  L<  1 0 C=S;GOTO  3043 

3230  FOR  J=S  TO  E+39  STEP  4 

3210  IF  1C  J>  + 7(  J+  1 )+@(  J+2)>  f D=JiCOIJ  3113 

32  2 0 NEXT  J 

3233  RE 3 CONP'JTE  AVERAGE  AMPLITUDE 
32  4 3 P = 3 

32  5 0 FOR  1=3  TO  E STEP  4 

32 6 0 ?=?  + 3(  I ) + 3(  1 + 1 )+t?(  1+2) 

327  3 N EX  T I 
323  3 4 = P/L  / 3 
329  3 T=13*L/16 
33)0  0=  3/4*10 

3:3  13  FOR  K=0  TO  S- l S TEP  4 
3323  O = D/13JR=D-Q*10 
3330  0=0*4 
3340  FOR  J=0  TO  3 

33  5 0 <1(633  + X+J)  = ( C 9 CQ  + J+4  ) -9  < Q + J ) 3 * R / 13+9(Q+J) ) 
33  60  NEXT  J 

33  M D=D+Y 
333  3 \I  EX  T K 
339  3 RETURN 

OX 

> 


The  following  changes  are  required  to  convert  Program  1 to 
Program  2,  which  utilizes  Polynomial  Regression  along  with  the 
Euclidian  Distance  measure  of  Program  1: 

(1)  Add  line  105  105  INPUT  F 

(2)  Change  line  2090  to  read: 

2090  IF  @(664+1 )< 27500  @(664+1)  - @(664+I)+X*X-F*X 
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ADDR 

Bi 

B2 

B 3 E 

LINE  LABEL 

OPCD 

OPERAND 

3700 

0010  • CSRMON 

3700 

0020  * 

3700 

0030  * KEYBOARD  INPUT  CONTROLLER  TO  CALL  CSRi 

3700 

0040  • 

3700 

0040  * LLOYD  RICE,  COMPUTALKER  CONSULTANTS 

3700 

0060  * VERSION 

1.06 

MAY  30, 

1977 

3700 

0070  « 

3700 

0080  * DEFINE 

INPUT 

STRING  BUFFER  LENGTH 

3700 

0090  INBFLN 

EQU 

76 

3700 

0100  * 

3700 

31 

00 

20 

0110  CSRMON 

LX  I 

SP.2J00H 

* THIS  IS  THE  ONLY  STACK 

3703 

21 

94 

37 

0120 

LXI 

H , MSGi 

3704 

CD 

7D 

37 

0130  DSPi 

CALL 

DISPLA 

* DISPLAY  HEADING  AND  CUE 

3705 

3E 

OD 

0140 

MVI 

A , ODH 

* THEN  ANOTHER  CR 

3703 

CD 

DO 

33 

OiSO  DSPI 

CALL 

CHROUT 

370E 

21 

B4 

37 

0160 

LXI 

H , BUFF 

371i 

G£ 

4A 

0170 

MVI 

C, INBFLN 

-2 

3713 

CD 

6? 

37 

0180  CHLOv/P 

CALL 

CHRiN 

* READ  A CHAR  FROM  KBD 

3716 

E6 

7F 

0190 

AN  I 

7FH 

3716 

F E 

20 

0200 

CPI 

* 1 

371 A 

CA 

32 

37 

0210 

JC 

CTRL 

3710 

FE 

S3 

C220 

CPI 

' 2 ' +1 

371? 

D2 

63 

37 

0230 

JNC 

GTZ 

3722 

OD 

0240 

DCR 

C 

3723 

C 2 

2A 

37 

0240 

JNZ 

CSP2-2 

3726 

OC 

0260 

I NR 

C 

3727 

C 3 

13 

37 

0270 

JM? 

CHLOOP 

372A 

77 

0230 

MOV 

M , A 

3723 

23 

0290 

I NX 

H 

37  2C 

CD 

03 

33 

0300  DSP2 

CALL 

CHROUT 

• DISPLAY  THE  CHAR 

372F 

C 3 

13 

37 

0310 

JMP 

CHLOOP 

• GET  ANOTHER 

3732 

0320  • 

3732 

FE 

18 

0330  CTRL 

CPI 

16H 

* CTRL  X 

3734 

CA 

CB 

37 

0340 

JZ 

DSPI 

* ECHO  IT  TO  CLEAR  THE  SCR! 

3737 

FE 

10 

0340 

CPI 

10H 

* CTRL  P 

37  39 

CA 

49 

37 

0360 

JZ 

REPLAY 

• PLAY  THE  LAST  CNE  AGAIN 

373C 

FE 

02 

0370 

CPI 

2 

• CTRL  3 

373E 

CA 

43 

38 

0380 

JZ 

BUFDIS 

* DUMP  THE  BUFFER 

3741 

FE 

OD 

0390 

CPI 

ODH 

3743 

C2 

13 

37 

0400 

JNZ 

CHLOOP 

• IGNORE  ALL  ELSE  BUT  CR 

3746 

77 

0410 

MOV 

M,A 

3747 

CD 

D8 

38 

0420 

CALL 

CHROUT 

• ECHO  THE  RETURN 

374A 

21 

B4 

37 

04  30 

LXI 

H , BUFF 

3740 

CD 

00 

20 

0440 

CALL 

CSRI 

* COMPUTE  AND  SAY  IT 

3740 

C 4 

83 

37 

0440 

CNZ 

ERROUT 

• SOM PIN ' HAPND , WRITE  ERR 

3743 

21 

A6 

37 

0460  CUE1 

LXI 

H , MSG2 

3746 

C 3 

06 

37 

0470 

JMP 

DS?Q 

3749 

0480  • 

3749 

*ES 

0490  REPLAY 

PUSH 

H 

374A 

CS 

0400 

PUSH 

B 

3743 

CD 

03 

20 

0410 

CALL 

PLAY 

* PLAY  THE  LAST  ONE  AGAIN 

374E 

Cl 

0420 

POP 

B 

374? 

El 

0430 

POP 

H 

3760 

C 3 

13 

37 

0440 

JMP 

CHLOOP 

3763 

0440  • 

3763 

FE 

7F 

0460  GT2 

CPI 

7FH 

* CHAR  > 'Z*,  CHECK  FOR  RUI 

3764 

C2 

13 

37 

0470 

JNZ 

CHLOOP 

68 
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ADDR 

ai 

B2 

B 3 E 

LINE 

LABEL 

CPCD 

OPERAND 

3768 

oo 

0980 

DC  R 

c 

3769 

20 

0990 

DC  X 

H 

376A 

CO 

0600 

NOP 

* 

* MVI  A, XX  WITH  CHAR  TO  ECHO 

376B 

00 

0610 

NOP 

« 

* ON  P.USOUT  (IF  NOT  7PH) 

376C 

C 3 

2C 

37 

0620 

OMP 

DSP2 

37  6F 

0630 

• 

376F 

0640 

* CHAS 

INPUT  (CALLED  FOR  CONSOLE  KBD  INPUT) 

376F 

CD 

73 

37 

C6SG 

CHRIN 

CALL 

TTYIN 

• REDEFINE  AS  NEEDED 

3772 

C9 

0660 

RET 

377  3 

0670 

• 

377  3 

0680 

* TTY 

INPUT  HANDLER 

3773 

D3 

CO 

0690 

TTYIN 

IN 

0 

3775 

£6 

80 

0700 

AS  I 

SOH 

3777 

CA 

73 

37 

0710 

JZ 

S-4 

37  7A 

DO 

01 

0720 

IN 

1 

377C 

C9 

07  30 

RET 

377D 

0740 

• 

3770 

0750 

• MESSAGE  OUTPUT  LOOP, 

STOP  ON  CHAR-04 

37  70 

0760 

* 

377D 

7E 

0770 

DISPLA 

MOV 

A.M 

• CET  CHAR 

37  7E 

FE 

04 

0780 

CPI 

4 

3780 

ca 

0790 

RZ 

« 

* RETURN  IF  EOT 

3781 

CO 

D8 

38 

0800 

CALL 

CHROUT 

* NO,  OUTPUT.IT 

373-4 

23 

OBiO 

INX 

H 

• 

3786 

C 3 

7D 

37 

0820 

JMP 

DISPLA 

3788 

0830 

• 

3789 

0840 

• ERROR  MSG  CUT! 

PUT,  STOP  ON  CR  (DDK) 

3788 

7E 

0850 

ERROUT 

MOV 

A , M 

3789 

CD 

D3 

38 

0660 

CALL 

CHROUT 

378C 

7E 

0870 

MOV 

A , M 

378D 

FE 

OD 

0880 

CPI 

ODH 

378F 

C8 

0390 

R2 

3790 

23 

0900 

INX 

H 

37  91 

C 3 

88 

37 

0910 

OMP 

ERROUT 

3794 

0920 

• 

3794 

OC 

0930 

MSGi 

DB 

CCH 

• FIRST  CLEAR  THE  SCREEN 

3799 

93 

99 

4E 

0940 

DT 

•SYNTHESIS  BY  RULE* 

3793 

94 

46 

4S 

37  9B 

93 

49 

93 

379E 

20 

42 

99 

37A 1 

20 

92 

99 

37A4 

4C 

49 

37a6 

OD 

0960 

MSG2 

DB 

ODH 

37A7 

49 

4E 

94 

0960 

DT 

•ENTER 

TEXT: ' 

3 7AA 

4S 

92 

20 

37AO 

94 

49 

98 

3780 

94 

3A 

37B2 

OD 

0970 

CB 

ODH 

37B3 

04 

0980 

DB 

4 

• 

3704 

0990 

• 

3704 

1C00 

BUFF 

DS 

INBFLN 

• PHONEME  STRING  INPUT  8UTFER 

3800 

1010 

• 

3800 

1020 

* END 

OF  CSRMON 

KEYBOARD  INPUT  HANDLER 

3800 

1030 

* 

3800 

1040 

1 ft  ft  ft 

3800 

1050 

* 

3800 

1060 

* DIAGNOSTIC  DUMP  ROUTINES  FOR  INFO  4 DEBUGGING 
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ADOR 

81 

82 

8}  E 

LINE 

LABEL 

OPCD 

OPERAND 

3800 

1070 

* 

3800 

1080 

ORG 

CSRMON+IOOH 

3800 

1090 

• 

3800 

1100 

• 

OISPLAY 

CURRENT  MATRIX  CONTENTS 

3300 

1110 

• 

(CALLED 

BY  INSTR  INSERTED  IN  CSR1 

CODE)  • 

3800 

21 

EF 

33 

mo 

mat 

D1S 

LX1 

H ,MDTX 

3303 

CO 

7D 

37 

1130 

CALL 

DISPLA  * DISPLAY  " 

FEATURE  MATRIX- 

3306 

2A 

02 

33 

1140 

LHLD 

NEGEND 

330? 

11 

C6 

33 

1180 

LXl 

0, MATRIX-4'2 

36  0C 

id 

1160 

DAD 

0 

3300 

73 

1170 

MOV 

A,  L 

38  -E 

2? 

1130 

CKA 

3e  OF 

4P 

r 90 

MCV 

C * A 

3300 

C 6 

14 

12J0 

MVI 

8 , 2 J * NUMBER  OF 

COLS  TO  DISPLAY 

3312 

fi  8 

1210 

CMP 

8 

3813 

DA 

17 

33 

1220 

JC 

$♦4 

3316 

43 

1230 

MOV 

C,B 

3317 

CS 

1240 

PUSH 

8 

3313 

21 

06 

33 

1230 

LX  I 

H * MATRI X+i 

3 3 i3 

23 

126  0 

DLi 

I NX 

H 

3 31C 

CD 

9D 

38 

1270 

CALL 

CODOUT 

33iF 

CD 

1280 

DCR 

C 

3c  1 J 

C 2 

IS 

38 

1290 

JNZ 

DLi 

332  3 

CD 

06 

38 

1303 

CALL 

CROUT 

3326 

Cx 

1310 

POP 

9 

3327 

0 s 

04 

1320 

MV  l 

8 » 4 

-323 

21 

06 

33 

1333 

LXl 

H , MATRI X+l 

3c2C 

cs 

1340 

DL2 

PUSH 

8 

3 320 

lx 

3r 

CO 

1 330 

LXl 

D,MATLEN 

38  30 

19 

1360 

DAD 

0 

3d  ja 

ES 

mo 

PUSH 

H 

33  32 

21 

1380 

DL  3 

I NX 

H 

33  33 

7E 

139  0 

MOV 

A , M 

3c34 

CD 

BO 

38 

1400 

CALL 

. BYTE 

3337 

CD 

01 

33 

i4l0 

CALL 

BLANK 

3 o 3A 

CD 

1420 

DCR 

C 

33  33 

C2 

32 

38 

1433 

JNZ 

DL3 

3d  Jl 

CD 

06 

33 

1440 

CALL 

CROUT 

3311 

El 

14  60 

POP 

H 

3342 

Cl 

14  60 

POP 

B 

3 3 4 3 

CS 

1473 

DCR 

B 

3344 

C 2 

2C 

38 

148- 

JNZ 

DL2 

3 d 4 7 

uC 

1490 

NOP 

• * ’CALL  CHRIN ' TO  PAUSE  HERE 

3343 

c c 

, 1800 

NOP 

3349 

CO 

1810 

NOP 

33  4 A 

C 9 

1820 

RET 

3343 

1830 

• 

3343 

1840 

• 

BUFD1S 

3843 

i860 

• 

COMP  THE  CURRENT  BUFFER  CONTENTS 

3 c 43 

1860 

• 

(CALLED 

BY  CTRL  B DURING  INPUT) 

3 5 43 

2A 

C6 

20 

1870 

8LTDIS 

LHLD 

BUFADR 

3 = 4E 

11 

08 

00 

1830 

LXl 

Dr  li 

3361 

19 

1890 

DAD 

D 

3362 

22 

OF 

36 

1600 

SHLD 

BUFPTR 

36  86 

2i 

03 

33 

1610 

LXl 

H,M.ATR1X  + 1 

3a3d 

7£ 

1620 

PMLOOP 

MOV 

a ,m 

388* 

Ft 

04 

16  30 

CPI 

4 

PACE  04 


AODR 

Bl 

B2 

B3  E 

LINE 

LABEL 

OPCD 

OPERAND 

38  8B 

CA 

83 

37 

1640 

JZ 

CUE1  • GO  BACK  TO  INPUT  LOOP 

388E 

E8 

1680 

PUSH 

H 

338F 

a 

7C 

01 

1660 

LXI 

D, MATLEN*  4 

3862 

EB 

1670 

XCHG 

3363 

19 

1680 

DAD 

D 

3864 

7£ 

i690 

MOV 

A,M 

3866 

47 

1700 

MOV 

B , A • 

3666 

B 7 

1710 

ORA 

A 

3867 

CA 

98 

38 

1720 

JZ 

ENDLP 

386A 

EB 

1730 

XCHG 

386B 

CD 

9D 

33 

1740 

CALL 

CODOUT 

336E 

2A 

DF 

36 

1780 

LHLD 

BUFPTR 

3871 

C3 

7D 

38 

1760 

JMP 

PHLP3 

3874 

CD 

Dl 

38 

1770 

PHLP2 

CALL 

BLANK 

3877 

CD 

D1 

38 

1780 

CALL 

BLANK 

3B7A 

CD 

Dl 

38 

1790 

CALL 

BLANK 

387D 

OE 

09 

1800 

PHLP3 

MV  I 

C,9 

387F 

CD 

Dl 

33 

1810 

FRLOOP 

CALL 

BLANK 

3832 

7E 

1820 

MOV 

A,M 

388  3 

CD 

BD 

38 

1830 

CALL 

BYTE 

3d36 

23 

1840 

IN'X 

H 

0887 

OD 

1880 

DC  R 

C 

3898 

C2 

7F 

38 

I860 

JNZ 

FRLOOP 

388B 

CD 

D6 

33 

1870 

CALL 

CROUT 

388E 

08 

1880 

DC  R 

B 

388F 

C2 

74 

38 

1890 

JNZ 

PHLP2 

3892 

22 

DF 

36 

1900 

SHLD 

BUFPTR 

3898 

00 

1910 

NOP 

3896 

00 

1920 

NOP 

3897 

00 

1930 

NCP 

3698 

El 

1940 

ENDLP 

POP 

H 

3899 

23 

1980 

INX 

H 

389A 

C 3 

83 

38 

i960 

JMP 

PH LOOP 

3890 

1970 

• 

3890 

1990 

• OUTPUT  PHONEME  CODE  OF  CURRENT  MATRIX  COLUMN 

389D 

It 

1990 

CODOUT 

MOV 

A t M 

384E 

87 

2000 

ADD 

A 

3H9F 

EB 

2010 

XCHG 

3 3 AO 

2A 

OA 

20 

2020 

LHLD 

PVTAB 

38A  3 

38 

2030 

ADD 

L 

38A4 

6f 

2040 

MOV 

L,  A 

38AS 

7C 

2080 

MOV 

A , H 

38A6 

CE 

00 

2060 

AC  I 

0 

38A8 

67 

2070 

MOV 

H , A 

38A9 

7E 

2080 

MOV 

A , M 

38AA 

tD 

D8 

38 

2090 

CALL 

CHROUT 

3 8 AD 

23 

2100 

INX 

H 

33AE 

7E 

2110 

MOV 

A , M 

38AF 

B7 

2120 

ORA 

A 

33B0 

C 2 

BS 

33 

2130 

JNZ 

$♦•> 

33B  3 

3E 

20 

2140 

MVl 

A,  ' 1 

38B8 

CD 

08 

38 

2180 

CALL 

CHROUT 

33B8 

CD 

Dl 

38 

2160 

» CALL 

BLANK 

3 8B0 

EB 

2170 

XCHG 

3 9BC 

C9 

2180 

RET 

3dB0 

2190 

• 

38BD 

2200 

* THE 

FOLLOWING 

ROUTINES  ARE  USED  ONLY  BY 
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ADDR 

Bi 

B2 

33  E 

LINE 

LABEL 

OPC'D 

OPERAND 

3330 

2210 

* LOCAL 

CALLS, 

NOT  BY  CSRl 

33BD 

FS 

2220 

BYTE 

PUSH 

PSW 

* OUTPUT  (A)  AS  2 HEX  DIGITS 

33BE 

OF 

2230 

RRC 

3bBF 

OF 

2240 

RRC 

3 SCO 

OF 

22S0 

RRC 

33Ci 

OF 

2260 

RRC 

33C2 

CD 

Co 

33 

2270 

CALL 

HEXO 

• 

38CS 

Fi 

2230 

POP 

PSW 

3oC6 

Eo 

OF 

2290 

HEXO 

AN  I 

OFH 

• MASK  OFF  UPPER  HALF 

36C3 

C 6 

90 

2 300 

ADI 

90H 

3BCA 

27 

2310 

DAA 

38CB 

CE 

40 

2320 

AC  I 

4GH 

3 SCO 

27 

23  30 

DAA 

33CE 

C 3 

D8 

38 

2340 

JMP 

CHROUT 

* OUTPUT  HEX  DIGIT  6 TAKE  LA: 

3 oDi 

23SO 

* 

38D1 

3E 

20 

2360 

BLANK 

MV  I 

A,  ' ' 

3303 

C 3 

D3 

38 

2 370 

JMP 

CHROUT 

• OUTPUT  A SPACE 

3806 

2380 

* 

33D6 

3E 

CD 

2390 

CROUT 

MVI 

A,  ODH 

* OUTPUT  CR,(LF) 

3308 

2400 

* 

3808 

2410 

* CHAR 

OUTPUT 

(CALLED  TO 

i OUTPUT  (A) ) 

3308 

2420 

* REDEFINE  AS 

NEEDED 

38D8 

CD 

DC 

38 

24  30 

CHROUT 

CALL 

TTYOUT 

* REDEFINE  AS  NEEDED 

3803 

C 9 

2440 

RET 

330C 

24S0 

* 

3 6 DC 

2460 

• tty  output  handler 

380C 

FS 

2470 

TTYOUT 

PUSH 

PSW 

3800 

DB 

00 

2480 

IN 

0 

330F 

E6 

01 

2490 

AN  I 

i 

33EI 

CA 

DD 

33 

2S00 

JZ 

$-4 

3 8E  4 

Fi 

2S10 

POP 

psw 

38ES 

D 3 

01 

2S20 

OUT 

i 

3SE7 

FE 

OD 

2S30 

CPI 

ODH 

33E9 

CO 

2S40 

RNZ 

33EA 

3E 

GA 

2SS0 

MVI 

A,  CAH 

* LAST  CHAR  WAS  CR,  ... 

38EC 

C 3 

DC 

36 

2S60 

JMP 

TTYOUT 

• ADD  A LINE  FEED 

38EF 

2S70 

• 

3aEF 

2680 

• 

38EF 

OD 

2690 

MDTX 

DB 

ODH 

33F0 

46 

46 

41 

2600 

DT 

•FEATURE 

MATRIX' 

3SF3 

64 

ss 

S2 

38F6 

46 

20 

40 

38F9 

41 

64 

S2 

3 8 Ft 

49 

S3 

38FE 

OD 

2610 

DB 

ODH 

33FF 

04 

2620 

DB 

4 

3900 

26  30 

• 

3900 

2640 

* * 

3900 

2660 

* 

3900 

2660 

* A PORTION  OF 

THE  CSRl 

JUMP  TABLE  IS  DEFINED 

3900 

2670 

• TO  ALLOW  ACC 

ESS  TO  MISC.  CSRl  ADDRESSES 

3900 

2680 

« 

3900 

2690 

ORG 

2000H 

2000 

2700 

• 

2000 

2710 

CSR1 

DS 

3 

2003 

2720 

PLAY 

DS 

3 

2006 

2730 

BUFADR 

DS 

2 

72 


PACE  06 


ADDS  B 1 

B2  83  E LINE 

LABEL 

OPCO 

OPERAND 

2008 

2740 

BUFEND 

DS 

2 

200A 

27  SO 

PVTAO 

OS 

2 

200C 

2760 

* 

200C 

2770 

* OTHER 

CSRi  LOCATIONS  DEPENDENT 

20  JC 

2780 

COM RAM 

ECU 

3S00H 

200C 

2790 

NEGEND 

ECU 

CQMRAM+2 

200C 

2800 

MATRIX 

EQU 

COM  RAN + 4 

200C 

2310 

MATLEN 

ECU 

99 

200C 

2820 

BUFPTR 

EQU 

MATLEN*  S+MATR I X 

200C 

2830 

* 
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ADDS  Bi  B2  B1  E LINE  LABEL  OPCD  OPERAND 


2330 

3313 

* 

PARSE 

2003 

3323 

* 

2003 

3030 

• 

SECTION  1 OF  THE  CSR1  SYNTHESIS  BY  RULE  SYSTEM 

2333 

0040 

* 

2333 

3050 

* 

LLOYD  RICE,  COMPUTALKER  CONSULTANTS 

2333 

3363 

* 

VERSION  1.07  MAY  30,  1977 

2033 

0070 

ft 

2333 

0080 

* 

THE  ENTIRE  CSR1  SOFTWARE  SYSTEM  IS  PROVIDED 

2303 

3390 

* 

BY  COMPUTALKER  CONSULTANTS  WITH  THE  UNDERSTANDING 

2333 

3100 

* 

THAT  IT  MAY  BE  REPRODUCED  FOR  NON-COMMERCIAL 

2303 

0110 

* 

PURPOSES,  PROVIDED  THAT  THE  SOURCE  IS  QUOTED. 

2303 

3123 

* 

OTHERWISE,  ALL  COPYRIGHTS  ARE  RETAINED. 

2330 

3130 

* 

(C)  1977,  COMPUTALKER  CONSULTANTS 

2333 

0140 

* 

2333 

0150 

* ft 

2033 

0163 

* 

2033 

0173 

* 

ASSEMBLE  ALL  SECTIONS  TO  BEGIN  AT  THE  SAME 

2300 

3183 

• 

STARTING  ADDRESS.  THIS  WILL  BE  THE  ADDRESS 

2333 

3193 

• 

AT  WHICH  JO  CALL  THE  CSRl  SYSTEM 

2333 

3200 

* 

2333 

0213 

• ft 

2330 

3223 

ft 

23CG 

3230 

ft 

COMMON  (JUMP)  ADDRESS  REFERENCE  TABLE  . 

2333 

0240 

* 

THIS  TABLE  ALLOWS  REASSEMBLING  ANY  SECTION 

2300 

0250 

ft 

WITHOUT  CHANGING  REFERENCES  IN  OTHER  SECTIONS 

2333 

3263 

ft 

2333 

0270 

ft 

ANY  SECTION  MAY  BE  MOVED  BY  CHANGING  THE  ORG 

2333 

0280 

ft 

AT  SECTAD  (SECTION  1 IS  SLIGHTLY  DIFFERENT) . 

2303 

0293 

ft 

ALL  REFERENCES  WILL  BE  HANDLED  CORRECTLY. 

2333 

0333 

ft 

THE  COMMON  RAM  WORKSPACE  DOES  NOT  SHARE  THIS 

2o;o 

0310 

ft 

NICE  PROPERTY.  IT  MUST  BE  DEFINED  THE  SAME 

2303 

0320 

ft 

IN  ALL  SECTIONS. 

2333 

0 330 

ft 

2303 

0 340 

• ft 

2003 

0353 

ft 

2033 

3 360 

ft 

THE  PARAMETER  3UFFER  IS  DEFINED  BY  CONSTANTS  IN 

2333 

3370 

ft 

LOCATIONS  BUFADR  AND  BUFEND.  3UFADR  CONTAINS  THE 

2333 

0330 

ft 

ADDRESS  OF  THE  1ST  BYTE  OF  THE  FRAME  COUNT,  AND 

2333 

0390 

ft 

BUFEND  CONTAINS  THE  LAST  ADDRESS  AVAILABLE  AS 

2000 

3433 

ft 

BUFFER  SPACE. 

2333 

0410 

ft 

THESE  LOCATIONS  ARE  DEFINED  ONLY  IN  SECT1  SOURCE 

2330 

0420 

ft 

2303 

04  30 

ft  ft 

2033 

3440 

ft 

2303 

0450 

ft 

COMMON  JUMP  ADDRESS  TABLE 

2333 

0463 

ft 

2000 

0470  COMJMP 

ECU 

$ 

2333 

0483  * 

2333 

C3 

3A 

23 

0493 

JHP 

CSRl 

2333 

0500  PLAY 

DS 

3 

2036 

00 

39 

0510  BUFADR 

cw 

COMJMP+1930H 

♦ 1ST  BUFIER  LOC  AVAIL 

2038 

FF 

5P 

0520  BUFEND 

DW 

COMJ.MP+3FFFH 

• LAST  LOC  AVAILABLE 

230A 

C5 

22 

3530 

DW 

PVTAB 

233C 

C 3 

AC 

22 

3543 

JMP 

MATPAK 

230F 

C3 

9A 

22 

0550 

JrtP 

MATERR 

2312 

3560  RULES 

DS 

3 

2315 

0570  SETOUR 

DS 

3 

PACE  02 


ADDR  81 

B2  83  E LINE 

LABEL 

OPCD 

OPERAND 

2313 

3533 

RULES  3 

DS 

1 

2318 

0590 

GENFO 

DS 

3 

231E 

0630 

CLRBUF 

cs 

3 

2321 

3613 

GENPRM 

DS 

3 

2324 

0623 

DUMMY 

DS 

22 

23  3A 

0630 

• 

23 1A 

3643 

SECTAD 

EQU 

S 

20  JA 

0650 

* 

20  JA 

3663 

• 

23  JA 

0670 

• 

23  JA 

0633 

• COM RAM 

ORIGEN 

DEFINITION 

23  JA 

0693 

• 

23  JA 

3733 

ORG 

COMJMP+1500H 

3503 

0713 

COM RAM 

EQU 

$ 

J503 

0723 

• 

J533 

0730 

• CSRl  SYSTEM  RAM  SPACE  DEFINITION 

1533 

0740 

* 

35C0 

3753 

MATPTR 

DS 

2 

3532 

3760 

NEGEND 

DS 

2 

3bC4 

0770 

MATRIX 

EQU 

S 

J534 

0733 

MATLEN 

EQU 

95 

3534 

0790 

PHCOCE 

DS 

MATLEN 

356  3 

3833 

FEATA 

DS 

MATLEN 

J5C2 

0813 

FEATS 

DS 

MATLEN 

3621 

3823 

STRES 

DS 

MATLEN 

3683 

03  30 

DUR 

DS 

MATLEN 

J6DF 

C840 

MAT END 

EQU 

$ 

36DF 

0853 

• 

36DF 

3863 

• PARSE 

(LOCAL) 

RAM  WORKSPACE 

36DF 

0373 

• 

J6DF 

C333 

CHAR 

DS 

1 

36E3 

0890 

PHON 

DS 

2 

36E2 

3933 

NUM 

DS 

1 

36E3 

0913 

INPTR 

DS 

2 

36E5 

3923 

• 

36E  5 

09  30 

• 

36E5 

0943 

• 

36E5 

0953 

• CSRl  SYSTEM  MAIN  ROUTINE 

36E5 

0963 

* 

J6E5 

3973 

ORG 

SECTAD 

23  3A 

0980 

• 

23  3a 

0990 

* DEFINE 

PHONEME  CODES  FOR  PARSE 

23JA 

1300 

* 

23  3A 

1010 

CPAUSE 

EQU 

2 

20  JA 

1323 

CTERM 

EQU 

4 

233A 

1330 

CAX 

EQU 

15 

23  3A 

104  3 

CEL 

EQU 

29 

20  JA 

1350 

CEM 

EQU 

30 

20  JA 

1363 

CEN 

EQU 

31 

23  3A 

1070 

CL 

EQU 

33 

23  3A 

1080 

CM 

EQU 

36 

23  3A 

1090 

CN 

EQU 

37 

20  3A 

1133 

CT 

ECU 

43 

23  3A 

1113 

CD 

EQU 

44 

23  3A 

1120 

CSH 

EQU 

51 

23  3A 

1130 

C2H 

EQU 

55 

20  3A 

1143 

CCH 

EQU 

56 

75 
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ADOR 

31 

32 

33  E 

LINE 

•-AS  EL 

OPCD 

OPERAND 

23  JA 

1153 

CJH 

ECU 

57 

233A 

1163 

• 

2 2 3A 

1170 

• DEFINE 

FEATURE  LABELS 

22  3A 

1133 

ft 

22  JA 

1190 

VOWEL 

ECU 

83H 

22  3A 

1233 

CONS 

ECU 

40H 

2 2 3A 

1213 

FPCST 

ECU 

20H 

23 'A 

1223 

01PK7H 

ECU 

ICH 

2C3A 

12  JO 

W03ND 

ECU 

4 

22  JA 

1243 

PH9ND 

EQU 

2 

2 C j A 

1253 

IGNORE 

ECU 

1 

2 2 JA 

1263 

STOP 

EQO 

80H 

2 3 JA 

1273 

VOICE 

ECU 

43H 

2 j 3 V 

1233 

PLOS 

ECU 

2CH 

22  JA 

1290 

PLCSA 

EQU 

10H 

22  JA 

1 33  0 

FR1C 

EQU 

8 

2 3 JA 

1310 

LICUID 

ECU 

4 

23  m 

1 12  0 

NASAL 

ECU 

2 

22  JA 

1 J JO 

DENTAL 

ECU 

1 

22  JA 

134  3 

• 

23  3A 

1353 

• DEPINE 

INPUT 

STRING  TERMINATOR 

2 2 JA 

1360 

ft 

2C  :a 

1 J70 

TERM 

• EQU 

GDK 

23  :a 

1J30 

• 

22  JA 

1 J90 

22  JA 

1400 

* 

2:  ja 

1413 

» CSRl  MAIN  LOOP 

^ i*  3rt 

1423 

• 

22  JA 

C5 

4 4 J ’J 

CSRl 

PUSH 

3 

ft 

SAVE  8C,DS 

23  J3 

D5 

i 44  C 

PUSH 

D 

2 3 3C 

CO 

£3 

23 

1453 

CALL 

PARSE 

* 

PARSE  INPUT  i SET  UP  MATRIX 

2 2 JF 

C 2 

60 

2Z 

1460 

JNZ 

‘ CSERR 

* 

RETURN  IF  ERROR 

2242 

22 

14'3 

NCP 

224  J 

* 

1460 

NOP 

2*44 

V.  J 

1493 

NOP 

2 3 4 5 

CD 

12 

23 

i 5C3 

CALL 

RULES 

ft 

APPLY  RULES  TO  MATRIX 

2' 4 3 

2 2 

63 

23 

1517 

jn: 

CSERR 

ft 

RETURN  IF  ERROR 

2 243 

— *4 

w J 

1522 

NO? 

2 24C 

C- 2 

1 5 J 2 

NO? 

2340 

23 

1540 

NCP 

IZ\Z 

CD 

la 

23 

1550 

CALL 

GENFu 

ft 

GENERATE  F0  PARAMETER 

2251 

C 2 

63 

23 

1560 

JNZ 

CSERR 

ft 

RETURN  IF  ERROR 

2254 

• ^ 
V U 

1570 

NO? 

235  5 

33 

1583 

NCP 

2255 

0 j 

1590 

NO? 

2257 

CD 

1 » 

25* 

1500 

CALL 

GENPRM 

ft 

GENERATE  OTHER  PARAMETERS 

225  4 

3"3 

1510 

NOP 

2253 

23 

1620 

NOP 

2 3 5C 

CO 

16J0 

NOP 

2050 

CD 

03 

23 

1640 

CALL 

PLAY 

ft 

PLAYBACK  TO  SYNTHESIZER 

2363 

Cl 

1653 

CSERR 

POP 

D 

2252 

Cl 

1660 

POP 

B 

2262 

C9 

1670 

PET 

226  J 

1630 

2 26  J 

1690 

• 

2 * 6 J 

1733 

236  J 

1713 

• 

i 
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ADDR 

Bl 

B2 

33  E 

LINE  LABEL 

OPCD 

OPERAND 

2063 

1720  * PARSE 

CODE 

2063 

1730  * 

2063 

1740  ****••*• 

>• 

2063 

1750  * 

2063 

22 

E3 

36 

1760  PARSE 

SHLD 

INPTR 

* SAVE  INPUT  TEXT  POINTER 

2066 

21 

04 

35 

1770 

LXI 

H, MATRIX 

2069 

22 

00 

35 

1780 

SHLD 

MATPTR 

* INITIALIZE  PHONEME  MATRIX 

206C 

AP 

1790 

XRA 

A 

2060 

32 

E2 

36 

1800 

STA 

NUM 

2070 

3E 

04 

1810 

MVI 

A.CTERM 

* FRONT  MATRIX  TERMINATOR 

2072 

CD 

7A 

22 

1820 

CALL 

MATSET 

♦ NO  ERROR  TEST  NEEDED 

2075 

3E 

02 

1830 

HVI 

A ,CPAUSE 

2077 

CD 

7A 

22 

1840 

CALL 

MATSET 

* SET  UP  INITIAL  PAUSE 

207A 

CD 

BD 

21 

1850  PARSA 

CALL 

GET 

207D 

FE 

3D 

1860  PARSB 

CPI 

TERM 

* END  OF  INPUT? 

207f 

3E 

00 

1870 

MVI 

A , 0 

* DON'T  WIPE  THE  Z FLAG 

2081 

32 

E2 

36 

1880 

STA 

NUM 

2094 

CA 

3F 

21 

1890 

JZ 

FINUP 

* END,  CLOSE  THE  MATRIX 

2087 

67 

1900 

MOV 

H , A 

2088 

6F 

1910 

MOV 

L,A 

2089 

22 

EO 

36 

1920 

SHLD 

PHON 

« CLEAR  PHON, 

208C 

4F 

1930 

MOV 

C , A 

• i C FOR  HH  COUNTER 

20  3D 

7a 

1940 

MOV 

A , D 

* GET  PARSER  FLAGS  INTO  A 

208E 

17 

1950 

RAL 

208F 

DA 

A6 

20 

1960 

JC 

VOWELA 

* VOWEL  CLASS  A 

2092 

17 

1970 

RAL 

2093 

DA 

CD 

20 

1980 

JC 

CONSB 

• CONSONANT  CLASS  B 

2096 

17 

1990 

RAL 

2097 

DA 

18 

21 

2000 

JC 

CON3A 

♦ CONSONANT  CLASS  A 

209A 

17 

2010 

RAL 

2093 

DA 

33 

21 

2020 

JC 

COMMT 

• COMMENT  DELIMITER 

209E 

E6 

CO 

2030 

AN  I 

0C0H 

20A0 

C2 

20 

21 

2040 

JNZ 

PLXPA 

* SINGLE  CHAR  SYMBOL 

20A  3 

C 3 

5F 

21 

2050 

jmp 

ERROR 

* BAD  INPUT 

20A6 

2060  • 

20  A 6 

CD 

Bi 

21 

2070  VOwfeLA 

CALL 

PUSHP 

* PUSH  VOWEL  CHAR  A,  GET  CHAR  B 

2CA9 

7a 

2080 

MCV 

A,  D 

20AA 

IF 

2090 

RAR 

20AB 

2 

5F 

21 

2 1 C C 

JNC 

ERROR 

« IF  NOT  VOWEL  3,  IT'S  AN  ERROR 

20AE 

CD 

Bl 

21 

2110 

CALL 

PUSHP 

* PUSH  CHAR  3,  GET  NEXT 

203  1 

7A 

2120  GETDIG 

MOV 

A , D 

* SEE  IF  VOWEL  IS  FOLLOWED  BY  INT 

2032 

IF 

2130 

RAR 

20B  3 

IF 

2140 

RAR 

2084 

D2 

DA 

20 

2150 

JNC 

LKPNG 

• NOT  A DIGIT,  LOOKUP  THE  VOWEL 

23B7 

3A 

DF 

36 

2160 

LDA 

CHAR 

* ACCUMULATE  STRESS  VALUE  IN  C 

203A 

D6 

30 

2170 

SUI 

•O' 

• 

20BC 

47 

2180 

MOV 

B , A 

* SAVE  NEW  DIGIT  IN  B 

20BD 

79 

2190 

MOV 

A,C 

20BE 

87 

2200 

ADD 

A 

2 OBF 

87 

2210 

ADD 

A 

20C0 

81 

2220 

ADD 

c 

20C1 

87 

22  30 

ADD 

A 

• 10  TIMES  PREVIOUS  VALUE 

20C  2 

80 

2240 

ADD 

B 

* PLUS  NEW  DIGIT 

20C  3 

4 F 

2250 

MOV 

C , A 

* INTO  C 

20C4 

32 

E2 

36 

2260 

STA 

NUM 

* AND  INTO  NUM 

20C  7 

CD 

BD 

21 

2270 

CALL 

GET 

2 OCA 

C 3 

Bl 

20 

2280 

JKP 

GETD1G 

* 6 SEE  IF  THERE'S  ANOTHER  DIGIT 

77 


r 


PAGE  05 


ADDR 

B1 

32 

B 3 E 

LINE  LABEL 

OPCD 

OPERAND 

20CD 

2290  » 

20CD 

CD 

Bl 

21 

2300  CCNSB 

CALL 

PUSHP 

* 

PUSH  CONS  CHAR,  GET  NEXT 

2003 

FE 

48 

2310 

CPI 

•H' 

* 

IS  IT  FOLLOWED  BY  AN  "H"? 

2002 

CA 

F3 

20 

2320 

JZ 

GETH 

* 

YES 

2005 

FE 

58 

2330 

CPI 

•X' 

* 

IS  IT  FOLLOWED  BY  AN  'X' 

2007 

CA 

20 

21 

2340 

JZ 

PLKPA 

* 

YES,  PUSH  & LOOK  IT  UP 

20DA 

CD 

CB 

22 

2350  LKPNG 

CALL 

LOOKUP 

* 

NO,  LOOKUP,  DON'T  GET  AGAIN 

2000 

CO 

2360 

RNZ 

• 

* 

RETURN  IF  ERROR 

20DE 

3A 

DF 

36 

2370  PARSBG 

LDA 

CHAR 

20E 1 

CD 

CA 

21 

2380 

CALL 

GETFLG 

* 

GET  CHAR  FLAGS  INTO  D AGAIN 

2004 

C 3 

7D 

20 

2390 

JMP 

PARSB 

23E7 

2400  * 

20E7 

OC 

2410  INCRH 

INR 

C 

* 

INCREMENT  THE  "H"  COUNTER 

20E3 

CD 

BD 

21 

2420 

CALL 

GET 

20E3 

FE 

48 

2430 

CPI 

'H' 

20EO 

C2 

03 

21 

2 4 4 0 

JNZ 

LKPH 

• 

CHAR  IS  NOT  H,  LOOKUP  LAST  HH 

20F  3 

CO 

BD 

21 

2450  GETH 

CALL 

GET 

23?  3 

FE 

43 

2460 

CPI 

•h  ' 

20F5 

CA 

E7 

20 

2470 

JZ 

INCRH 

* 

WE  HAVE  ANOTHER  'H' 

20F3 

3A 

Ei 

36 

2430 

LDA 

PHON+i 

* 

END  OF  THE  STRING  OF  'H'S 

20F3 

32 

EO 

36 

2490 

STA 

PHON 

2CFE 

3E 

48 

2500 

MVI 

A , ' H ' 

2130 

32 

Ei 

36 

2510 

STA 

PHON+i 

* 

PUSH  AN  'K'  INTO  PHON 

210  3 

CD 

CB 

22 

2520  LKPH 

CALL 

LOCKUP 

* 

LOOK  IT  UP 

2106 

CO 

2530 

RNZ 

2107 

79 

2540 

MOV 

A ,C 

2103 

B7 

2550 

ORA 

A 

2109 

CA 

DE 

20 

2560 

JZ 

PARSBG 

• 

ALL  HH 'S  DONE,  CHAR  IS  NEXT 

210C 

3E 

48 

2570 

MVI 

A , 'H' 

210E 

32 

EO 

36 

2580 

STA 

PHON 

2111 

32 

Ei 

36 

2590 

STA 

PHON+i 

* 

FORCE  PHON  TO  'HH' 

2114 

ao 

2600 

OCR 

C 

2115 

C 3 

03 

21 

2610 

JMP 

LKPH 

* 

AND  LOOK  IT  UP 

2113 

2620  * 

2113 

CD 

Bi 

21 

2630  CONSA 

CALL 

PUSHP 

* 

PUSH  CONS  CHAR,  GET  NEXT 

2113 

FE 

43 

2640 

CPI 

'H' 

211D 

C2 

5F 

21 

2650 

JNZ 

ERROR 

* 

CLASS  A CONS  MUST  HAVE  'H'  NEX- 

2120 

3A 

Ei 

36 

2660  PLKPA 

LDA 

PHON+i 

* 

PUSH  IT  INTO  PHON 

2123 

32 

EO 

36 

2670 

STA 

PHON 

2126 

3A 

DF 

36 

2630 

LDA 

CHAR 

2129 

32 

Ei 

36 

2690 

STA 

PHON+1 

212C 

CD 

OB 

22 

2700 

CALL 

LOOKUP 

* 

LOOK  IT  UP 

212? 

CO 

2710 

RNZ 

2130 

C 3 

7A 

20 

2720 

JMP 

PARSA 

* 

GET  NEXT  INPUT 

2133 

27  30  • 

2133 

CD 

BD 

21 

2740  COMMT 

CALL 

GET 

• 

GET  ANOTHER  CHAR 

2136 

7A 

2750 

MOV 

A , D 

2137 

E6 

iO 

2760 

ANI 

iCH 

2139 

CA 

33 

21 

2770 

JZ 

COMMT 

* 

IGNORE  ALL  UNTIL  NEXT  CMMT  DEL: 

213C 

C 3 

7a 

20 

2780 

JMP 

PARSA 

213F 

2790  » 

213F 

AF 

2800  FINUP 

XRA 

A 

2140 

32 

E2 

36 

2810 

STA 

NUM 

2143 

3E 

02 

2820 

MVI 

A ,CPAUSE 

2145 

CD 

7A 

22 

2830 

CALL 

MATSET 

* 

PUT  FINAL  PAUSE  IN  MATRIX 

2148 

CO 

2840 

RNZ 

2149 

3E 

04 

2850 

MVI 

A,C?ERM 

78 


PAGE  Co 


k 


ADDS 

B 1 

B2 

B3  E 

LINE 

LABEL 

OPCD 

OPERAND 

2143 

CD 

7a 

22 

2860 

CALL 

MATSET 

• 

TERMINATE  MATRIX 

2 14E 

CO 

2870 

RN2 

214F 

2A 

00 

35 

2880 

LHLD 

MATPTR 

2152 

7C 

2890 

MOV 

A,H 

2153 

2F 

2900 

CMA 

2154 

67 

2910 

MOV 

H , A 

2155 

70 

2920 

MOV 

A,L 

2156 

2F 

29  JO 

CMA 

2157 

6F 

2940 

MOV 

L , A 

2158 

23 

2950 

INX 

H 

2159 

23 

2960 

INX 

H 

215A 

22 

02 

35 

2970 

SHLD 

NEGEND 

• . 

-ADDRESS  OF  TERM  PaON 

215D 

AF 

2980 

XRA 

A 

215E 

C9 

2990 

RET 

215F 

3000 

• 

215F 

3010 

* SYNTAX 

ERROR 

MESSAGE 

RETURN 

215F 

3020 

* 

215F 

21 

80 

36 

JO  30 

ERROR 

LX! 

H , DUR 

• 

USE  DURATION  ARRAY  FOR  MSG 

2162 

11 

9F 

21 

3040 

LXI 

D.EP.TXi 

2165 

CD 

98 

21 

3050 

CALL 

MOVCH 

* 

MOVE  1ST  PART  OF  MSG 

2168 

C2 

65 

21 

3060 

JNZ 

$-3 

216B 

36 

OD 

3070 

MVI 

M,0DH 

* 

TERMINATE  IT 

2160 

11 

El 

36 

3080 

LX! 

D - FHON+i  • 

SEE  IF  ANYTHING  IN  PHOS 

2170 

iA 

3090 

LDA  X 

D 

2171 

47 

3100 

MOV 

8,  A 

2172 

IB 

3110 

OCX 

D 

2173 

lA 

3120 

LDAX 

D 

2174 

BO 

3130 

ORA 

B 

2175 

CA 

92 

21 

3140 

JZ 

NZRET 

* 

NO,  SET  NON-O  i RETURN 

2178 

11 

AB 

21 

3150 

LXI 

D.ERTX2 

* 

YES,  ADD  MORE  TO  MSG 

2173 

CD 

98 

21 

3160 

CALL 

MOVCH 

217E 

c: 

7B 

21 

3170 

JNZ 

$-3 

2181 

u 

EO 

36 

3180 

LXI 

D , PKON 

2184 

CD 

98 

21 

3190 

CALL 

MCVCH 

* 

MOVE  NON-O  PARTS  CP  PHON  6 

2187 

CD 

98 

21 

3200 

CALL 

MOVCH 

213A 

CD 

98 

21 

3210 

CALL 

MOVCH 

218D 

36 

22 

3220 

MVI 

M , * " • 

218F 

23 

32  30 

INX 

H 

2190 

36 

OD 

3240 

MVI 

M , CDH 

• 

TERMINATE  THE  MSG 

2192 

21 

80 

36 

3250 

NZRET 

LXI 

H , DUR 

2195 

F6 

FF 

3260 

ORI 

255 

2197 

C9 

3270 

RET 

2198 

3280 

* 

2198 

1A 

3290 

MOVCH 

LDAX 

D 

2199 

13 

3300 

INX 

D 

219A 

87 

3310 

ORA 

A 

2193 

C8 

3320 

RZ 

219C 

77 

33  30 

• MOV 

M , A 

2190 

23 

3340 

INX 

H 

219E 

C 9 

3350 

RET 

219F 

3360 

* 

2l9F 

49 

4E 

50 

3370 

ERTX1 

DT 

* INPUT 

ERROR' 

21A2 

55 

54 

20 

21A5 

45 

52 

52 

21A3 

4F 

52 

21AA 

00 

3380 

DB 

0 

21AB 

20 

41 

54 

3390 

ERTX2 

DT 

* AT  •• 

79 


AGE  0 1 

ADC?.  Si  B2  B3-  E LINE  LABEL  OPCD  OPERAND 


21AE 

23 

22 

2132 

CO 

3400 

DB 

0 

2131 

3410 

• 

2131 

3420 

* 

2131 

34  30 

* 

2131 

34  4 0 

* fap.S': 

SUB ROUT 

ONES 

2131 

3450 

♦ 

2131 

3A 

El 

35 

3460 

PUS  HP 

LDA 

PHON+1 

2134 

32 

E3 

36 

3470 

STA 

PHON 

213' 

3A 

DP 

36 

3480 

LDA 

CHAR 

213A 

32 

El 

36 

3490 

STA 

PHON+1 

2130 

3500 

* 

21ED 

2A 

E 3 

36 

3510 

GET 

LHLD 

INPTR 

2IC3 

7 E 

3520 

MOV 

A,  M 

* 

GET  NEXT  INPUT  CHAR 

21C1 

E6 

7P 

35  30 

AN  I 

7FH 

21C3 

32 

DP 

36 

3540 

STA 

CHAR 

* 

SAVE  IT 

21C6 

23 

3550 

INX 

H 

* 

AND  BUMP  INPUT  POINTER 

21C7 

22 

E 3 

36 

3560 

SHLD 

INPTR 

21CA 

C5 

3570 

GETFLG 

PUSH 

B 

21C3 

4F 

3590 

MOV 

C,A 

ft 

KEEP  CHAR  IN  C FOR  NOW 

2 ICC 

E6 

IP 

3590 

AN  I 

1FH 

ft 

KEEP  5 LS  BITS 

2ice 

5F 

3600 

MOV 

E , A 

2iCP 

21 

E7 

21 

3610 

LX  I 

H , PARFLG  * 

ADDR  OF  FLAG3  TABLE 

2102 

16 

C3 

3620 

MVI 

D,0 

2104 

19 

3630 

DAD 

D 

2125 

46 

3640 

MOV 

3 , M 

• 

GET  FLAGS  WORD  IN  B 

2105 

79 

3650 

MOV 

A , C 

• 

GET  WHOLE  CHAR  BACK 

212' 

u7 

3660 

RLC 

2105 

C* 

3670 

FLC 

2109 

3' 

3630 

RLC 

2 10A 

E5 

33 

3690 

AN  I 

3 

• 

KEEP  CHAR  BITS  5,5  IN  A 

210C 

5F 

3700 

MOV 

E , A 

ft 

OFFSET  TO  F VSK  TABLE 

2100 

21 

07 

22 

3710 

LX1 

H , chmask 

;u: 

19 

3720 

DAD 

D 

2151 

7 r 

37JO 

MOV 

A , M 

• 

get  ma:x  cits  is  a 

2 1 E 2 

A3 

3740 

ANA 

3 

2iE  J 

57 

3750 

MOV 

D , A 

RETURN  FLAGS  IN  D 

2154 

79 

3 • 6 C 

MOV 

A,C 

* 

RETURN  CrA  N A 

21E5 

Cl 

3770 

POP 

B 

21E5 

C9 

3*80 

RET 

2157 

3790 

♦ 

21E7 

3800 

* 'ARSER 

FLAGS 

TABLE 

2157 

3910 

** 

2157 

34 

3320 

FARFLG 

DB 

04H  » 

§ fS?ACE 

2153 

31 

38  30 

DB 

81H  • 

A,  I 

2159 

C 3 

38  4 0 

DB 

OSH  * 

B,' 

21ea 

23 

38  90 

DB 

20H  • 

C,» 

2 1 E3 

43 

356  0 

DB 

4 OH  » 

D,S 

2 1EC 

31 

3970 

D3 

81H  * 

E,» 

21E0 

09 

3880 

DB 

C8H  • 

? ,i 

21EE 

40 

3990 

D3 

40H  * 

G , ' 

2 1 E r 

21 

3903 

D3 

2 1H  • 

H,  ( 

21P3 

61 

3910 

DB 

8 1 H * 

2 1 Fi 

33 

3920 

D3 

3GH  • 

J,4 

2 1 F 2 

40 

39  30 

D3 

4:h  * 

K , + 

2 IP  J 

45 

3940 

DB 

45H  * 

L,  , 

2 1 F 4 

oo 

3950 

DB 

CDH  * 

Mr- 

8o 
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ADDR 

Bi 

02 

S3  E 

LIN? 

‘-A2EL 

OPCD 

OPERAND 

21F5 

45 

3960 

DB 

I5H  * N,  . 

21r  6 

85 

970 

DB 

85K  » 0,/ 

21F7 

0A 

. 980 

DB 

0AH  * P,0 

21F8 

OA 

399  C 

DB 

0/.K  * 0,1 

21F9 

43 

4000 

DB 

4.H  ‘3,2 

21FA 

42 

4010 

DB 

42H  » 7,3 

21FB 

42 

402C 

DB 

42H  • T , 4 

21FC 

83 

4 7 1C 

DB 

B3H  * !J,5 

2IFD 

OA 

4li*»0 

DB 

0AH  ‘ V,6 

21FE 

43 

s."'C 

DB 

4 OH  • W,7 

21FF 

03 

406  C 

DB 

03H  * X , 8 

2200 

43 

4070 

DB 

4 3H  • Y,9 

2201 

44 

4080 

DB 

44H  » 2 ! 

2202 

04 

4C9 

DB 

04H  * [ , ; 

2203 

00 

4100 

D3 

0 • BACK  SLASH. < 

2204 

CO 

4110 

DB 

0 • ],- 

2205 

00 

4120 

DB 

0 ‘UP  ARROW, > 

2206 

04 

4130 

DB 

Q4H  * LEFT  ARROW, 

2207 

4140 

• 

2207 

4150 

♦ PARSER 

FLAGS 

BIT  MASKS 

2207 

4163 

• 

2207 

00 

4170 

CHMASK 

DB 

0 * CONTROL  CHA",  CLEAR  FLAGS 

2203 

16 

4180 

DB 

16H  • PUNCTUATION,  USE  BITS  4,2,1 

2209 

E9 

4190 

DB 

Or>H  • UPPER  CASE,  USE  SITS  7,6,5.  1,0 

220a 

00 

4200 

DB 

0 » L*«/ER  CASE,  CLEAR  FLAGS 

220B 

4210 

» 

220B 

4220 

« 

2208 

42  30 

* LOOKUP 

SUBROUTINE 

22CB 

424." 

220B 

C5 

4250 

lookup 

PUSH 

B 

220C 

2A 

EO 

5 

4250 

L HID 

PRO N * 2ND  HALF  OF  PHON  INTO 

22  3F 

7D 

4270 

MOV 

A,  L * t 1ST  HALF  IN  A 4 L 

2210 

B7 

4230 

ORA 

A 

2211 

CA 

\r 

~ 2 

4290 

3 Z 

NCHP  * IF  1S~  5 2 -3,  MAKE  IT  THE  2ND 

2214 

6C 

4 300 

MOV 

L ■ H * INTERCHANGE  H 4 L 

2215 

67 

4113 

MOV 

H , A 

2216 

E3 

4 323 

NCHP 

XCHG 

* * NON  0 PART  x::  O,  2ND  I '2  IN  E 

2217 

OE 

4 313 

MVI 

C.64 

2219 

21 

Ci 

.2 

4 343 

LX  I 

H , PVT  AS 

221C 

? ' 

4 350 

CHECK 

MOV 

A , D * SEARCH  VALID  TABLE  FOR  (PHON) 

221D 

BO 

4 360 

CMP 

M 

221E 

23 

4 370 

IN  X 

H 

22  IF 

C 

22 

4 380 

JNZ 

PlBAD 

2222 

7F 

4 390 

MOV 

A,  E ‘1ST  1/2  POUN-  . TRY  2ND  1/2 

2223 

BE 

4400 

CMP 

M 

2224 

CA 

30 

22 

4410 

JO 

MATCH 

2227 

23 

4420 

PlBAD 

1NX 

H * NOT  THIS  ONE 

2223 

OD 

44  JO 

• 

CCR 

C 

2229 

C2 

1C 

22 

4440 

JNZ 

CHECK 

222C 

Cl 

4453 

PC? 

B 

222D 

C 3 

5F 

21 

4460 

JMF 

ERROR  * (PHON)  NOT  IN  VALID.  TABLE 

22  30 

4470 

• 

22  10 

3E 

3A 

4480 

MATCH 

mv: 

A , -PVTA3-1 4256  ♦ (-PVTAB-l)MOD  256 

22  32 

95 

4490 

ADO 

L 

22  13 

OF 

4500 

RRC 

22  34 

FE 

1C 

4510 

CPI 

CEL  • CHECK  NOW  FOR  DUMMY  CODES 

2236 

CA 

50 

22 

4520 

JZ 

INSAKL  * EL  BECOMES  AX,L 

81 


r 
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ADDR 

B 1 

B2 

B3  E 

LINE 

LABEL 

OPCD 

OPERAND 

22  59 

FE 

IE 

4530 

CPI 

CEM 

22  3B 

CA 

55 

22 

4 540 

JZ 

INSAXM 

* 

EM  BECOMES  AX,M 

223E 

FE 

IF 

4550 

CPI 

CEN 

2240 

CA 

5A 

22 

4560 

JZ 

INSAXN 

* 

EN  BECOMES  AX,N 

224  3 

FE 

18 

4 57  0 

CPI 

CCH 

2245 

CA 

61 

22 

4580 

JZ 

INSTSH 

* 

CH  BECOMES  T,SH 

2248 

FE 

19 

4590 

CPI 

CJH 

224A 

CA 

68 

22 

4603 

JZ 

INSDZH 

* 

JH  BECOMES  D,ZH 

2240 

C 3 

75 

22 

4613 

JMP 

PUTKAT 

* 

ELSE  PUT  IT  IN  THE  MATRIX 

2250 

4620 

• 

2250 

06 

21 

46  30 

INSAXL 

MVI 

B ,CL 

2252 

C3 

5C 

22 

4643 

JMP 

INS  1 

2255 

06 

24 

4650 

INSAXM 

MVI 

B ,CM 

2257 

C3 

5C 

22 

4660 

JMP 

INS  1 

225A 

06 

25 

4670 

INSAXN 

MVI 

B , CN 

225C 

3E 

OF 

4680 

INS  1 

MVI 

A,CAX 

225E 

C 3 

5C 

22 

4690 

JMP 

INS  2 

2281 

3E 

28 

4700 

INSTSH 

MVI 

A#CT 

2263 

06 

33 

4710 

MVI 

B , CSH 

226  5 

C 3 

6C 

22 

4723 

JMP 

INS  2 

2263 

3E 

2C 

4730 

JNSDZH 

MVI 

A, CD 

226A 

06 

37 

4740 

MVI 

B,CZH 

2260 

CD 

7A 

22 

4750 

INS  2 

CALL 

MATSET 

* 

PUT  1ST  PHON  IN  MATRIX 

226F 

3E 

30 

4763 

MVI 

A,0 

2271 

32 

E2 

36 

4770 

STA 

NUM 

* 

CLEAR  STRESS  VALUE  FOR  2ND 

2274 

78 

4730 

MOV 

A , B 

2275 

CD 

7A 

22 

4793 

PUTMAT 

c ALL 

MATSET 

* 

AND  PUT  IT  IN  MATRIX 

2273 

Cl 

4800 

POP 

B 

2279 

09 

4310 

RET 

227a 

4320 

* 

227a 

43  30 

* 

• 

227a 

2A 

30 

35 

4840 

HAT SET 

LHLD 

MATPTR 

• 

TEST  COLUMN  POINTER 

2270 

11 

9C 

CA 

4850 

LXI 

D , -MATRI X-MATLEN-1 

2230 

19 

4860 

OAD 

D 

229  1 

DA 

9a 

22 

4870 

JC 

MATERR 

• 

MATRIX  OVERFLOW 

2294 

C5 

4880 

PUSH 

B 

* 

SAVE  B 

2235 

CD 

AC 

22 

4393 

CALL 

MATPAK 

* 

PUT  NEW  CODE  INTO  MATRIX 

2289 

09 

4900 

DAD 

B 

2239 

3A 

E2 

36 

4913 

LDA 

NUM 

223C 

77 

4920 

MOV 

M , A 

• 

GET  STRESS  VALUE  TROM  NUM 

2280 

09 

49  30 

DAD 

B 

223E 

36 

33 

4940 

MVI 

M,  0 

* 

DURATION  VALUES 

2290 

Cl 

4950 

POP 

B 

* 

RESTORE  B 

2291 

2a 

00 

35 

4963 

LHLD 

MATPTR 

2294 

23 

4970 

INX 

H 

2295 

22 

30 

35 

4980 

SHLD 

MATPTR 

* 

BUMP  THE  COLUMN  PTR 

2293 

AF 

4990 

XRA 

A 

• 

SET  ZERO  CONDITION 

2299 

C9 

5000 

RET 

• 

229A 

5010 

• 

229A 

21 

AO 

22 

5020 

MATERR 

LXI 

H, MERTX 

2290 

F6 

FF 

53  30 

OR1 

255 

229F 

C9 

5040 

RET 

22A0 

5050 

• 

22A0 

40 

41 

54 

5363 

MERTX 

DT 

'MATRIX 

FULL1 

2 2A  3 

52 

49 

58 

22A6 

20 

46 

55 

22A9 

4C 

4C 

82 
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ADDR 

B1 

B2 

B3 

E LINE  LABEL 

OPCD 

OPERAND 

22AB 

(ID 

5070 

DB 

0DH 

2 2 AC 

5080  * 

2 2 AC 

5090  * 

22AC 

5100  * MATPAK 

SUBROUTINE 

2 2 AC 

5110  • 

2 2 AC 

2A 

00 

35 

5120  MATPAK 

LHLD 

MATPTR 

22  AT 

77 

5130 

MOV 

M , A 

22B0 

EB 

5140 

XCHG 

2 2b  I 

07 

5150 

RLC 

223  2 

4F 

5160 

MOV 

C,A 

22B3 

06 

00 

5170 

MVI 

B,0 

22B5 

21 

3D 

23 

5180 

LXI 

H , FEATAB 

2 2B8 

09 

5190 

DAD 

B 

2 2B9 

EB 

5200 

XCHG 

* 

22BA 

01 

5P 

00 

5210 

LXI 

B , MATLEN 

2 2BD 

09 

5220 

DAD 

B 

22BE 

1A 

5230 

LDAX 

D 

223F 

77 

5240 

MOV 

M , A 

22C0 

13 

5250 

INX 

D 

22C1 

1A 

5260 

LDAX 

D 

22C  2 

09 

5270 

DAD 

B 

22C3 

77 

5230 

MOV 

M , A 

22C  4 

C9 

5290 

RET 

22C5 

5300  * 

N 22C  8 

5310  **»*••* 

22C5 

5320  • 

22C5 

5330  * PHONEME 

VALIDATION  TAB 

22C5 

5340  • 

22C5 

■’0 

53  50  PVT  A3 

DB 

i i 

22C6 

uO 

5360 

DB 

0 

22C7 

2E 

5370 

DB 

1 1 

22C8 

00 

5380 

DB 

0 

22C9 

2C 

5390 

DB 

1 1 

22CA 

00 

5400 

DB 

0 

22CB 

3F 

5410 

D3 

’?• 

22CC 

00 

5420 

DB 

0 

22CD 

23 

54  30 

DB 

•♦• 

22CE 

00 

5440 

DB 

0 

22CP 

49 

59 

5450 

DT 

1 1 Y ' 

22D1 

49 

48 

5460 

DT 

•IH1 

22D3 

45 

46 

5470 

DT 

■EH  ' 

22D5 

41 

45 

5480 

DT 

' AE * 

22D7 

41 

41 

5490 

DT 

'AA' 

22D9 

41 

48 

5500 

DT 

•ah* 

2203 

41 

4F 

5510 

DT 

•AO1 

22DD 

4F 

57 

5520 

DT 

•OW‘ 

22DF 

55 

46 

5530 

DT 

•UH' 

22E1 

55 

57 

5540 

DT 

•UW' 

22E3 

41 

58 

5550 

DT 

■ax* 

22E5 

49 

58 

5560 

DT 

■IX' 

22E7 

45 

52 

5570 

DT 

'ER' 

22E9 

55 

58 

5580 

DT 

•ux1 

22E3 

4F 

48 

5590 

DT 

'OH* 

22ED 

41 

57 

5600 

DT 

•aw 

2 2EP 

41 

59 

5610 

DT 

•AY' 

22P1 

4P 

59 

S629 

DT 

*OY ' 

22P3 

45 

59 

5630 

DT 

'EY* 

• PUT  CODE  IN  ROW  1 

* CODE*2  INTO  BC 

• PEATURE  ADDR  IN  DE 

• BUMP  HL  TO  PEATA  ROW 

* MOVE  1ST  FEATURE  WORD  T MATRIX 

* MOVE  2ND  FEATURE  -ORD  TO  MATRIX 
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ADDS  B1  B2  B3  E LINE  LABEL  OPCD  OPERAND 


22F5 

52 

58 

5640 

22F7 

4C 

58 

5650 

22F9 

57 

58 

5660 

22F3 

59 

58 

5670 

22FD 

57 

43 

5630 

22FF 

45 

4C 

5690 

2301 

45 

4D 

5700 

2 30  3 

45 

4E 

5710 

2 305 

52 

5720 

2 306 

03 

57  JO 

2307 

4C 

5740 

2 303 

00 

5750 

2309 

57 

5760 

2 30a 

03 

5770 

2 JOB 

59 

5780 

2 30C 

03 

5790 

2 30D 

40 

5300 

2 30E 

00 

5810 

23CF 

4E 

5e23 

2310 

00 

5330 

2311 

4E 

58 

5843 

2313 

50 

5350 

2314 

00 

5660 

2315 

54 

5870 

2316 

00 

5833 

2 317 

43 

5990 

2319 

03 

5900 

2 319 

43 

53 

5910 

2313 

42 

5920 

2 31C 

00 

59  J3 

2 310 

44 

5940 

2 3l£ 

00 

5950 

231F 

47 

5960 

2 320 

00 

5970 

2 321 

47 

53 

5930 

2 323 

44 

53 

5990 

2 325 

46 

6300 

2 326 

00 

6010 

2 327 

54 

48 

6020 

2 329 

53 

60  30 

2 32A 

00 

6040 

232B 

53 

43 

6050 

2 320 

56 

6060 

2 32E 

00 

6070 

2 32F 

44 

43 

60  33 

23  31 

5A 

• 

6090 

23  32 

00 

6100 

2 33  3 

5 A 

48 

6110 

2 335 

43 

43 

6120 

2337 

4A 

48 

6130 

2 339 

48 

48 

6140 

2 3 33 

51 

6150 

2 3 3C 

00 

6160 

2 3 30 

61'0  • 

2 J JO 

6iao  • 

2 3 30 

6190  * 

2 3 3D 

6200  * 

DT 

'RX' 

DT 

'LX' 

DT 

'KX' 

DT 

'YX' 

DT 

'WH' 

DT 

'EL' 

DT 

'EM* 

DT 

'EN  ' 

DB 

'R' 

D3 

0 

DB 

'L' 

DB 

0 

DB 

•w 

DB 

0 

DB 

•Y* 

DB 

0 

DB 

•M' 

DB 

0 

DB 

'N' 

DB 

0 

DT 

'NX' 

DB 

'P' 

DB 

0 

DB 

T 

DB 

0 

DB 

•K  ' 

D3 

0 

DT 

'KX' 

D3 

'B  ' 

DB 

0 

DB 

' D ' 

DB 

0 

DB 

'G' 

D3 

0 

DT 

'GX' 

DT 

'DX' 

D3 

'F  ' 

03 

0 

DT 

*TH' 

D3 

•S' 

DB 

c 

DT 

'SH' 

DB 

'V' 

DB 

c 

DT 

•DH' 

DB 

*2' 

DB 

0 

DT 

'ZH' 

DT 

'CH' 

DT 

' JH' 

DT 

'HH' 

DB 

*Q* 

D3 

a 

FEATURE  DEFINITION  TABLE 


84 
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ADDR 

B1  B2  B 3 

E LINE  LABEL 

OPCD 

OPERAND 

2 J3D 

05 

6210  FEATAB 

DB 

WDBND+IGSORE 

• SPACE 

233E 

00 

6220 

DB 

0 

2 3 3F 

03 

6230 

DB 

PHBND+IGNORE 

• PERIOD 

2340 

OC 

6240 

DB 

0 

2341 

02 

6250 

DB 

PHBND  * COMMA 

2342 

00 

6260 

DB 

0 

2 34  3 

03 

6270 

DB 

PHBND+IGNORE 

* QUESTION 

2344 

CO 

6280 

DB 

0 

2 345 

03 

6290 

DB 

PHBND+IGNORE 

• TERMINATOR 

2346 

00 

6300 

DB 

0 

2347 

AO 

6310 

DB 

VOWEL+FRONT 

* IY 

2348 

40 

6 320 

DB 

VOICE 

2 349 

AO 

6330 

DB 

VOWEL+FRONT 

• IH 

234A 

40 

6 340 

DB 

VOICE 

2 J4B 

AO 

6350 

DB 

VOWEL+FRONT 

* EH 

2 34C 

40 

6360 

DB 

VOICE 

2 340 

AO 

6 370 

DB 

VOWEL+FRONT 

• AE 

2 3 4 £ 

40 

6380 

DB 

VOICE 

2 34F 

AO 

6390 

DB 

VOWEL+FRONT 

* AA 

2350 

40 

6400 

DB 

VOICE 

2351 

AO 

6410 

DB 

VOWEL+FRONT 

• AH 

2 352 

40 

6420 

DB 

VOICE 

2 35  3 

80 

64  30 

DB 

VOWEL  * AO 

2354 

40 

6440 

DB 

VOICE 

2 355 

90 

6450 

D3 

VOWEL+DIPHTH 

* OW 

2356 

40 

6460 

DB 

VOICE 

2357 

80 

6470 

DB 

VOWEL 

* UH 

2358 

40 

6480 

D3 

VOICE 

2359 

90 

6490 

DB 

VOWEL+DIPHTH 

* uw 

2 3 5A 

40 

6500 

DB 

VOICE 

235B 

BO 

6510 

DB 

VOWEL 

* AX 

2 35C 

40 

6520 

DB 

VOICE 

2350 

80 

6530 

DB 

VOWEL 

• IX 

2 35E 

40 

6540 

DB 

VOICE 

235F 

80 

6550 

DB 

VOWEL 

* ER 

2 360 

40 

6560 

CB 

VOICE 

2 361 

80 

6570 

DB 

VOWEL 

* UX 

2 362 

40 

6580 

DB 

VOICE 

2363 

80 

6590 

DB 

VOWEL 

• OH 

2 364 

40 

6600 

DB 

VOICE 

2365 

90 

6610 

DB 

VOWEL+DIPHTH 

• AW 

2 366 

40 

6520 

DB 

VOICE 

2367 

BO 

6630 

DB 

VOWEL+FRONT+D 

I PHTH  • AY 

2 368 

40 

6640 

DB 

VOICE 

2369 

BO 

6650 

DB 

VOWEL+FRONT+OIPHTH  * OY 

2 36A 

40 

6660 

DB 

VOICE 

2 36B 

BO 

6670 

DD 

VOWEL+FRCNT+DIPHTH  • EY 

236C 

40 

6680 

DB 

VOICE 

2 360 

80 

6690 

DB 

VOWEL 

* RX 

2 36E 

40 

6700 

DB 

VOICE 

2 36F 

80 

6710 

DB 

VOWEL 

• LX 

2 370 

40 

6720 

D3 

VOICE 

2371 

80 

67  30 

DB 

VOWEL 

• wx 

2 372 

40 

6740 

DB 

VOICE 

2 37  3 

80 

6750 

D3 

VOWEL 

• YX 

2374 

40 

6760 

DB 

VOICE 

2375 

40 

6770 

DB 

CONS 

* WH 

85 

L . 
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ADDR  Bl  B2  B3  E LINE  LABEL  OPCD  OPERAND 


2376 

43 

6730 

DB 

VOICE 

2 377 

00 

6790 

03 

0 * EL 

2378 

00 

6800 

DB 

0 

2379 

00 

6813 

DB 

0 * EM 

237a 

03 

6820 

DB 

0 

2373 

30 

68  33 

DB 

0 * EN 

2 37C 

03 

6843 

DB 

0 

237D 

40 

6850 

DB 

CONS  * R 

2 37E 

44 

6860 

DB 

VOICE+LIQUID 

237F 

40 

6870 

DB 

CONS  * L 

2380 

44 

6383 

DB 

VOICE+LIQUID 

2381 

40 

6890 

DB 

CONS  * W 

2382 

44 

6900 

DB 

VOICE+LIQUID 

2333 

40 

6910 

DB 

CONS  • Y 

2384 

43 

6920 

DB 

VOICE 

2385 

43 

6930 

DB 

CONS  * M 

2336 

C2 

6940 

DB 

STOP+VOICE+NASAL 

2387 

40 

6950 

D3 

CONS  • N 

2383 

C 3 

6960 

DB 

STOP+VOICE+NASAL+Dr  NTAL 

2399 

43 

6970 

D3 

CONS  * NX 

2 38A 

C2 

6980 

DB 

STOP+VOICE+NASAL 

233B 

40 

6993 

DB 

CONS  * P 

2 33C 

BO 

7000 

DB 

STOP+PLOS+PLOSA 

2380 

40 

7010 

D3 

CONS  * T 

238E 

Bl 

7020 

DB 

STOP+PLOS+PLCSA+OENTAL 

233F 

40 

7030 

DB 

CONS  • K 

2390 

BO 

7040 

DB 

STOP+PLOS+PLOSA 

2391 

40 

7050 

DB 

CONS  * KX 

2392 

BO 

7060 

DB 

STOP+PLOS+PLOSA 

2393 

43 

7070 

DB 

CONS  * B 

2394 

E3 

7080 

DB 

STOP +PLOS+VOICE 

2395 

40 

7090 

DB 

CONS  * D 

2396 

El 

7100 

DB 

STOP+PLOS+VOICE+DENTAL 

2397 

43 

7110 

DB 

CONS  * G 

2393 

E3 

7120 

DB 

STOP+PLOS+VOICE 

2399 

43 

7130 

DB 

CONS  • GX 

2 39A 

E3 

7140 

DB 

STOP+PLOS+VOICE 

2 39B 

40 

7150 

DB 

CONS  * DX 

2 39C 

81 

7160 

DB 

STCP+DENTAL 

219D 

43 

7170 

DB 

CONS  * F 

239E 

08 

7180 

DB 

FRIC 

2 39r 

43 

7190 

DB 

CONS  • TH 

2 3AG 

39 

7200 

D3 

FRIC+DENTAL 

2 3A1 

43 

7210 

D3 

CONS  * s 

23A2 

09 

7220 

DB 

FRIC+DENTAL 

2 3A3 

43 

72  30 

DB 

CONS  * SH 

2 )A4 

C8 

7240 

DB 

FRIC 

23A5 

43 

7250 

DB 

CONS  * V 

23A6 

43 

7260 

D3 

FRIC+VOICE 

2 347 

43 

7270 

DB 

CONS  * DH 

23A3 

49 

7230 

DB 

FRIC+VOICE+DENTAL 

2 3A9 

40 

7290 

D3 

CONS  * Z 

2 3AA 

49 

7300 

DB 

FRIC+VOICE+DENTAL 

2 3AB 

43 

7310 

D3 

CONS  » ZH 

2 3AC 

48 

7320 

DB 

FRIC+VOICE 

2 3AD 

00 

7330 

DB 

0 « CH 

2 3AE 

30 

7340 

DB 

0 

86 
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ADDR  B1  B2  B 3 E LINE  LABEL  OPCD  OPERAND 


2 3AF  00 
2 3B0  00 
23B1  40 
23B2  00 
23B3  40 
23B4  CO 
2385 
2385 


7350 

DB 

0 * JH 

7360 

OB 

0 

7370 

OB 

CONS  • HH 

7380 

D3 

0 

7390 

08 

CONS  • O 

7400 
7410  * 

DB 

STOP+VOICE 

7420  * 

END  OP  SECTl 
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ADDS  B1  B2  B1  E LINE  LABEL  OPCD  OPERAND 


20C0 

0010 

• RULES, 

CROUPS  1 AND  2 

2000 

0020 

ft 

2000 

0030 

* SECTION  2 OF 

THE  CSR1  SYNTHESIS  BY 

RULE  SYSTEM 

2000 

0040 

ft 

2000 

OOSO 

* LLOYD 

RICE, 

COMPUTALKER  CONSULTANTS 

2000 

0060 

* VERSION  1.07 

KAY  30,  1977 

2000 

0070 

ft 

2000 

0080 

* 

2000 

0090 

ft 

2000 

0100 

• COMMON 

JUMP 

ADDRESS  TABLE 

2000 

0110 

• THIS  TABLE  A 

LLOWS  REASSEMBLING  ANY 

SECTION 

2000 

0120 

• WITHOUT  changing  references  in  other  sections 

2000 

0130 

ft 

20  00 

0140 

• 

2000 

01S0 

ft 

2000 

OHO 

COM  JM  P 

ECU 

$ 

2000 

0i70 

ft 

2000 

0180 

CSR1 

DS 

3 

200J 

0190 

PLAY 

DS 

1 

2006 

0200 

Bl'FADR 

DS 

2 

2003 

02i0 

BUFEND 

DS 

2 

200A 

0220 

PVT  A3 

DS 

2 

200C 

02  30 

MATPAK 

DS 

3 

200F 

0240 

MATERR 

DS 

3 

2012  CO  CO  23 

02  SO 

JMP 

RULES 

201S 

0260 

SETDUR 

DS 

3 

2018 

0270 

RULES  3 

DS 

3 

201B 

0280 

GENFO 

DS 

3 

201  £ 

0290 

CLRBUP 

DS 

3 

2021 

0300 

GENPRM 

DS 

3 

2024 

0 320 

DUMMY 

DS 

22 

20  3A 

0320 

• 

20  3A 

03  30 

ft 

203A 

0340 

• 

20  3A 

03SO 

• COM RAM 

ORIGS 

N DEFINITION 

213A 

0 36C 

ft 

2C  3A 

0370 

ORG 

com jm  p+i so  Oh 

3S00 

0330 

CCMRAM 

ECU 

$ 

3S00 

0 390 

• 

3S30 

0400 

• CSR 1 SYSTEM 

RAM  SPACE  DEFINITION 

)S00 

0410 

ft 

1S00 

0420 

MATPTR 

DS 

2 

3 SO  2 

04  30 

NEGEND 

DS 

2 

3S04 

04  40 

MATRIX 

ECU 

S 

3SJ4 

04S0 

MATLEN 

ECU 

9S 

1 SC  4 

0460 

PHCODE 

DS 

MATLEN 

3S63 

04  70 

FEATA 

DS 

MATLEN 

3SC2 

0480 

FEATB 

DS 

MATLEN 

3621 

0490 

SIRES 

DS 

MATLEN 

368  3 

OSOO 

OUR 

OS 

MATLEN 

36DF 

0S10 

MATEND 

EQU 

$ 

36DF 

0S20 

• 

36DF 

OS  30 

• RULES 

(LOCAL 

) RAM  WORKSPACE 

36DP 

0S40 

• 

36DF 

OSSO 

HOVAO 

DS 

2 

36E1 

0S60 

COUNT 

DS 

1 

36E2 

0S70 

• 

PAGE  02 


ADDR  Bl  B2  83  E LINE  LABEL  OPCD  OPERAND 

36E2  0S80  •••**•«••• 

36E2  0590  • 

36E2  0600  • RULES  CROUPS  1 AND  2 

36E2  0610  * 

36E2  0620  ORG  COMJMP4-3COH 

2 300  0630  * 

2 300  0640  * PHONEME  CQDE  DEFINITIONS  FOR  RULES 


2 3C0 

06S0  • 

2 300 

0660  OSPACE 

ECU 

0 

2 3CO 

0670  CTERM 

EQU 

4 

2 3CO 

0690  CUW 

ECU 

14 

2 3C0 

0690  CUX 

EQU 

18 

2 3C0 

0700  CRX 

ECU 

24 

2 3C0 

0710  OLX 

ECU 

25 

2 3C0 

0720  OWX 

EQU 

26 

2 3C0 

0730  CYX 

ECU 

27 

2 3C0 

0740  OWH 

EQU 

28 

2 3C0 

0790  OR 

ECU 

32 

23C0 

0760  OH 

ECU 

34 

2 3C0 

0770  CL 

EQU 

33 

2 3C0 

0780  CM 

ECU 

36 

2 3C0 

0790  ON 

ECU 

37 

2 3C0 

0800  CNX 

EQU 

38 

2 3C0 

0810  CP 

ECU 

39 

2 3C0 

0820  CT 

ECU 

40 

2 300 

0830  OK 

ECU 

41 

2 300 

0840  CKX 

ECU 

42 

2 300 

0850  CB 

ECU 

43 

2 300 

0360  CD 

ECU 

44 

2 300 

0870  OG 

ECU 

45 

2 300 

0880  OCX 

EQU 

46 

2 300 

0890  ODX 

EQU 

47 

2 300 

0900  OS 

ECU 

50 

2300 

0910  OSH 

EQU 

51 

2 300 

0920  CZ 

EQU 

54 

2300 

0930  CZII 

ECU 

55 

2 300 

0940  OHH 

EQU 

58 

2300 

0950  CO 

ECU 

59 

2300 

0960  • 

23C0  0970  • DEFINE  FEATURE  LABELS 

2 3C0  0580  * 


2300 

0990 

VOWEL 

ECU 

80H 

2 300 

1000 

CONS 

ECU 

40H 

2 300 

1010 

FPONT 

EQU 

20H 

2 300 

1020 

DIPHTH 

EQU 

10H 

2300 

1030 

WDBND 

EQU 

4 

2 300 

1C40 

PHBND 

ECU 

2 

2 300 

1050 

IGNORE 

ECU 

1 

2 300 

1060 

STOP 

ECU 

80H 

2 300 

1070 

VOICE 

EQU 

40H 

2 300 

1080 

PLOS 

ECU 

20H 

2300 

1090 

PLOSA 

ECU 

10H 

2 300 

1100 

FRIC 

ECU 

S 

2300 

1110 

LIQUID 

ECU 

4 

2300 

1120 

NASAL 

ECU 

2 

2 3CO 

1130 

DENTAL 

EQU 

1 

23C0 

1140 

• 

89 
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A DOR 

B1 

B2 

B3  E 

UNE 

LABEL 

OPCD 

OPERAND 

23C0 

11S0 

2 3C0 

1160 

2 3C0 

1170 

23C0 

1180 

RULES 

CODE 

23C0 

1190 

23CO 

1200 

• *» 

• *** 

2 3CO 

1210 

2 3CO 

1220 

RULES 

MAIN 

2 3C0 

1230 

2 3C0 

CD 

D8 

23 

1240 

RUL 

ES 

CALL 

RULESl 

• 

APPLY  RULE  GROUP  1 

23C3 

CO 

12S0 

RNZ 

* 

• 

RETURN  IF  ERROR 

2 3C  4 

00 

1260 

NOP 

2 3CS 

00 

1270 

NOP 

23C6 

00 

1280 

NOP 

2 3C7 

CD 

78 

24 

1290 

CALL 

RULES  2 

* 

APPLY  RULE  GROUP  2 

2 3CA 

00 

1300 

NCP 

2 3TB 

00 

1310 

NOP 

2 3rc 

00 

1320 

NOP 

2 3CD 

CD 

IS 

20 

1330 

CALL 

SETDUR 

• 

ASSIGN  INITIAL  DURATIONS 

2 3D0 

00 

1340 

NOP 

2 3D1 

00 

1 3S0 

NOP 

23D2 

00 

1360 

NOP 

2 3D3 

CD 

IS 

20 

1370 

CALL 

RULES  3 

• 

APPLY  RULE  GROUP  3 

2 3D6 

AF 

1380 

XRA 

A 

• 

CLEAR  ERROR  CONDITION 

23D7 

C9 

1390 

RET 

2 3DS 

1400 

* 

2 3D8 

1410 

• 

23DB 

1420 

• *« 

** 

2 338 

1430 

• 

2338 

1440 

• 

RULE 

GROUP  1 

2 308 

14S0 

• 

2308 

21 

OS 

3S 

1460 

RULESl 

LXI 

Hf MATRIX+1 

2 308 

22 

00 

3S 

1470 

SHLD 

MATPTR 

23CE 

01 

sr 

00 

1480 

LXI 

B t MATLEN 

23E1 

1490 

RlLOOP 

ECU 

s 

2 3E1 

1S00 

• 

2 3E1 

1S10 

• 

0 <* 

VOWEL  STRESS. GT. 

O.SPACE//VOWEL  STRESS. CT.O 

2 3E1 

1S20 

• 

23E1 

09 

1S30 

RlA 

DAD 

B 

23E2 

7E 

1S40 

MOV 

A,  M 

• 

GET  COL  X PEATA 

23E3 

E6 

80 

1SS0 

AN  I 

VOWEL 

23ES 

CA 

1C 

24 

1S60 

JZ 

RIB 

• 

NOT  A VOWEL 

23E8 

09 

1S70 

DAD 

B 

2 3E9 

09 

1S80 

DAD 

B 

2 3EA 

7E 

1S90 

MOV 

A , M 

• 

GET  COL  X STRESS 

23EB 

B7 

1600 

CRA 

A 

* 

21EC 

CA 

1C 

24 

1610 

JZ 

RIB 

• 

VOWEL  NOT  STRESSED 

2 3EF 

2A 

00 

3S 

1620 

LHLD 

MATPTR 

2 3P2 

2B 

1630 

DC  X 

H 

23F3 

7E 

1640 

MOV 

A , M 

• 

GET  COL  X-l  CODE 

2 3F4 

FE 

04 

16S0 

CPI 

CTERM 

23F6 

CA 

6S 

24 

1660 

JZ 

ENDR1 

• 

X IS  1ST  COLUMN 

2 3 F 9 

FE 

00 

1670 

CPI 

CSPACE 

2 3FB 

C2 

1C 

24 

1680 

JNZ 

RIB 

• 

NOT  A WORD  BOUNDARY 

2 3FE 

28 

1690 

OCX 

H 

2 3FF 

7E 

1700 

MOV 

A , M 

* 

GET  COL  X-2  CODE 

2400 

FE 

04 

1710 

CPI 

CTERM 

90 


PAGE  04 

AODR 

B1 

B2 

B3  E 

LINE 

LABEL 

OPCD 

OPERAND 

2402 

CA 

1C 

24 

1720 

JI 

RIB 

2406 

09 

1710 

DAD 

B 

2406 

7E 

1740 

MOV 

A,M 

« 

GET  COL  X-2  FEATA 

2407 

E6 

80 

1760 

AN  I 

VOWEL 

2409 

CA 

1C 

24 

1760 

JZ 

RIB 

• 

NOT  A VOWEL 

240C 

09 

1770 

DAD 

B 

240D 

09 

1780 

DAD 

B 

240E 

7E 

1790 

MOV 

A , M 

• 

GET  COL  X-2  STRESS 

240F 

B7 

1800 

ORA 

A 

2410 

CA 

1C 

24 

1810 

JZ 

RIB 

• 

STRESS  MUST  BE  NON  0 

2413 

3E 

3B 

1820 

MVI 

A»CQ 

241S 

CD 

OA 

27 

1830 

CALL 

MATNSR 

• 

OX,  INSERT  A GLOT'AL  STOP 

2418 

CO 

1840 

RNZ 

2419 

C 3 

66 

24 

1860 

JMP 

ENDRl 

2 4 1C 

1860 

« 

241C 

1870 

• RX 

<• 

VOWEL/R/ 

241C 

1880 

* 

2 4 1C 

2A 

00 

36 

1890 

RIB 

LHLD 

MATPTR 

241F 

7E 

1900 

MOV 

A , M 

24'7 

FE 

20 

1910 

CPI 

CR 

• 

TEST  FOR  R 

2422 

C2 

2A 

24 

1920 

JNZ 

R1C 

2426 

16 

18 

1930 

MVI 

D ,CRX 

• 

CHANGE?  TO  RX 

2427 

C 3 

31 

24 

1940 

JMP 

RlBC 

2 4 2A 

1960 

* 

24  2A 

1960 

* LX 

<- 

VOWEL/L/ 

24  2A 

1970 

* 

242A 

FE 

21 

1980 

R1C 

CPI 

CL 

• 

TEST  FOR  L 

24  2C 

C 2 

46 

24 

1990 

JNZ 

RID 

242F 

16 

19 

2000 

MVI 

D,CLX 

* 

CHANGE?  TO  LX 

2411 

2B 

2010 

R1BC 

DC  X 

H 

2432 

7E 

2020 

MOV 

A,M 

• 

GET  COL  X-l  CODE 

24  33 

FE 

04 

2030 

CPI 

CTERM 

2436 

CA 

66 

24 

2040 

JZ 

ENDRl 

24  38 

09 

2060 

DAD 

B 

24  39 

7E 

2060 

MOV 

A,H 

• 

GET  COL  X-l  FEATA 

243A 

E6 

80 

2070 

AN  I 

VOWEL 

24  3C 

CA 

66 

24 

2080 

JZ 

ENDRl 

• 

NOT  A VOWEL 

243F 

7A 

2090 

MOV 

A , D 

2440 

CO 

OC 

20 

2100 

CALL 

MATPAK 

• 

OK,  CHANGE  THE  CONSONANT 

2443 

2A 

00 

36 

2110 

LHLD 

MATPTR 

24  46 

2120 

• 

2446 

2130 

* YX 

<■ 

DIPHTH 

FRONT// 

2446 

2140 

• NX 

<- 

DIPHTH 

-FRONT// 

2446 

2160 

* 

2446 

2B 

2160 

RIO 

DC  X 

H 

24*47 

7E 

2170 

MOV 

A,  M 

2448 

FE 

04 

2180 

CPI 

CTERM 

244A 

CA 

66 

24 

2190 

JZ 

ENDRl 

2440 

09 

2200 

DAD 

0 

244E 

7E 

2210 

MOV 

A , M 

• 

GET  COL  X-l  FEATA 

2 4 4 F 

E6 

10 

2220 

AN  I 

DIPHTH 

2461 

CA 

66 

24 

2230 

JZ 

ENDRl 

* 

NOT  A DIPHTHONG 

2464 

7fc 

2240 

MOV 

A , M 

2466 

E6 

20 

2260 

AN  I 

FRONT 

2467 

CA 

6F 

24 

2260 

JZ 

BACK 

24  6A 

IE 

IB 

2270 

MVI 

A,rYX 

246C 

C3 

61 

24 

2280 

JMP 

GLIDE 

91 
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ADDR 

Bi 

B2 

B 3 E 

LINE 

LABEL 

OPCD 

OPERAND 

24  SF 

3E 

iA 

2290 

BACK 

MVI 

A,CWX 

246) 

CD 

OA 

27 

2300 

GLIDE 

CALL 

MATNSR 

• INSERT  GLIOE  AFTER  DIPIITH 

24 1 4 

CO 

23)0 

RNZ 

246 

2320 

• 

246S 

2330 

• END  OF  1 

RULE  GROUP  1 

246S 

2 340 

• 

246S 

00 

23SO 

ENDRi 

NOP 

• 

* BREAKPOINT  LOC 

2466 

2A 

00 

3S 

2360 

LHLD 

MATP7R 

2469 

23 

2370 

INX 

H 

246A 

22 

00 

3S 

2330 

SHLD 

MATPTR 

* STEP  POINTER 

246D 

AF 

2390 

XRA 

A 

• CLEAR  ERROR  CONDITION 

246E 

EB 

2400 

XCHG 

246F 

2a 

02 

IS 

2410 

LHLD 

negend 

2472 

)9 

2420 

DAD 

D 

2473 

D8 

24  30 

RC 

• 

• RETURN  IF  END  OF  MATRIX 

2474 

EB 

2440 

XrHG 

2 47S 

C 3 

El 

23 

24S0 

JMP 

RlLOOP 

2473 

246C 

• 

24  78 

2470 

24  ’8 

2480 

• 

2478 

2490 

• RULE  GROUP  2 

2478 

2S70 

* 

2478 

21 

OS 

3S 

2S10 

RULES2 

LXI 

H.MATPIX+l 

2473 

22 

00 

3S 

2S20 

SHLD 

MATPTR 

247E 

01 

SF 

00 

2S30 

LXI 

B , MATLEN 

2481 

2S40 

R2LOOP 

ECU 

$ 

248) 

2SS0 

• 

248) 

2S60 

» STRESSX 

-1  <• 

/CONS  STRESS. GE.O/VOWEL  STRESS. NE.O 

243) 

2S70 

• 

24  8 i 

09 

2S80 

R2A 

DAD 

B 

2482 

7E 

• 

2S90 

MOV 

A,M 

• GET  COL  X FEATA 

248  3 

E6 

40 

2600 

ANl 

COWS 

248S 

CA 

FD 

2S 

2610 

JZ 

R2G 

• NOT  A CONSONANT 

2439 

09 

2623 

DAD  ' 

B 

2 499 

09 

26  30 

DAD 

a 

2 4 8A 

7E 

2640 

MOV 

A,M 

* GET  COL  X STRESS 

2483 

B7 

26S0 

CPA 

A 

248C 

FA 

AA 

24 

266  0 

JM 

P2B 

• STRESS  IS  DON'T  CHANGE 

24SF 

2A 

00 

3S 

2670 

LHLD 

MATPTR 

2492 

23 

2680 

INX 

H 

249  1 

7E 

2690 

MOV 

A , M 

* GET  COL  X+l  CODE 

2494 

FE 

C 4 

2730 

rpi 

CTERJ4 

2496 

C a 

FD 

2S 

27)0 

JZ 

RIG 

2497 

09 

2723 

DAD 

B 

2 4 9A 

7E 

27  30 

MOV 

A,  N 

• GET  COL  X+l  FEATA 

2493 

E6 

80 

2740 

ANI 

VOWEL 

24  90 

CA 

A A 

24 

27SO 

JZ 

R 23 

• NOT  A VOWEL 

2 4A  7 

09 

2700 

DAD 

B 

24A) 

09 

2770 

DAD 

D 

24A2 

7E 

2780 

MOV 

A,M 

* GET  COL  X+i  STRESS 

2 4A  3 

B 7 

2790 

ORA 

A 

24A4 

CA 

7D 

2S 

2800 

JZ 

R2E 

* VOWEL  NOT  STRESSED 

24A7 

28 

23)0 

OCX 

H 

24A8 

36 

01 

2820 

MVI 

N.l 

* OK,  SET  CONSONANT  STRESS 

2 AAA 

2830 

• 

24AA 

2840 

• STRESSX 

,X+1— 1 <•  /s. 

PLOS  -VOICE/VOWEL  STRESS. NE. 

2 AAA 

28  SO 

• 

92 


PACE  36 


ADOR 

Bl 

Q> 

B3  E 

LINE  LABEL 

OPCD 

OPERAND 

24AA 

2A 

00 

31 

2360  R2B 

LHLD 

MATPTR 

24AD 

7E 

2370 

MOV 

A,M 

24AC 

FF. 

32 

2880 

CM 

cs 

24BO 

C 2 

E 3 

24 

2390 

JNZ 

R2C 

* COL  X NOT  AN  S 

2 4B 1 

23 

2900 

INX 

H 

24B4 

7E 

2910 

MOV 

A , M 

« GET  COL  X+l  CODE 

2431 

EE 

04 

2920 

CPI 

CTERM 

24B7 

CA 

F8 

26 

2930 

JZ 

ENDR2 

* S IN  LAST  COL,  END  GROUP 

2 4 3 A 

09 

2940 

DAD 

B 

2438 

09 

2910 

DAD 

B 

2 4BC 

7E 

2960 

MOV 

A,M 

* GET  COL  X+l  FEATB 

24ED 

EE 

20 

2970 

XRI 

PLOS 

24BF 

E6 

60 

2980 

AN  I 

PLOS*- VOICE 

240 

02 

E 3 

24 

2990 

JNZ 

R2C 

• X+l  IS  NOT  UNVOICED  PLOSIVE 

24C4 

2A 

93 

31 

3900 

LHLD 

MATPTR 

24C7 

23 

3010 

INX 

H 

2408 

23 

3020 

INX 

H 

24C9 

7E 

3030 

MOV 

A,M 

• GET  COL  X+2  CODE 

24CA 

FE 

94 

3040 

CPI 

CTERM 

24CC 

OA 

F8 

26 

3010 

JZ 

ENDR2 

24CF 

09 

3069 

DAD 

B 

24DO 

7E 

3070 

MOV 

A,M 

+ GET  COL  X+2  FEATA 

2401 

E6 

80 

3080 

AN  I 

VOWEL 

2401 

CA 

E3 

24 

3090 

JZ 

R2C 

• NOT  A VOWEL 

2406 

09 

3100 

DAD 

B 

2407 

09 

3110 

DAD 

B 

2403 

7E 

3120 

MOV 

A,  M 

24D9 

B 7 

3130 

ORA 

A 

2 4 DA 

CA 

E 3 

24 

3140 

JZ 

R2C 

* X+2  STRESS  MUST  BE  NON  0 

2400 

2B 

3119 

DC  X 

H 

240E 

36 

FF 

3160 

MV  I 

* SET  STRESS  X+l  — 1 i 

24E0 

2B 

mo 

DC  X 

H 

24E1 

36 

FF 

3180 

MVI 

K,-i 

* SET  STRESS  X —1 

24E3 

3190  • 

24E3 

320.0  • STRESSX 

X+l  — 

1 <-  /PLOS  OR  (FRIC  -VOICE) .LIQUID 

24E3 

3210  * 

OR 

NASAL/VOWEL  STRESS. NE.O 

24E3 

3229  • 

24  E 3 

2A 

00 

31 

3239  R2C 

LHLD 

MATPTR 

I 

24E6 

09 

3240 

DAD 

B 

| 

24E7 

09 

3210 

DAD 

B 

24E8 

7E 

3260 

MOV 

A , K 

* GET  COL  X FEATB 

24E9 

E6 

20 

3270 

AN  I 

PLOS 

1 

2 4 EE 

C 2 

F6 

24 

3280 

JNZ 

R201 

• COL  X IS  PLOSIVE  f 

2 4 EE 

7E 

3290 

MOV 

A , M 

» 

24EF 

EE 

08 

3300 

XRI 

FRIC 

i 

24F1 

E6 

48 

3110 

ANI 

FRIC-f  VOICE  » 

24F  3 

C2 

2A 

21 

3320 

JNZ 

R2D 

* NEITHER  PLOS  NOR  FRIC  -VOICE 

24F6 

2A 

00 

31 

3130  R2C1 

LHLD 

MATPTR 

24F9 

23 

3349 

INX 

H 

24FA 

7E 

3310 

MOV 

A,  M 

* GET  COL  X+l  CODE 

24FB 

FE 

04 

316  3 

CPI 

CTERM 

24FD 

CA 

42 

26 

3370 

JZ 

R2JK 

• 

2100 

09 

3380 

DAD 

B 

; 

2101 

09 

3390 

DAD 

B 

1 

21C2 

7E 

3400 

MOV 

A,M 

* GET  COL  X+l  FEATB  1 

2103 

E6 

06 

3410 

ANI 

1IQUID+NASAL 

2101 

CA 

2A 

21 

3420 

JZ 

R2D 

* NEITHER  LIQUID  NOR  NASAL 

93 
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1 


ADDR 

B1 

B2 

B3  E 

EIRE 

LABEL 

OPCD 

OPERAND 

2608 

2A 

00 

3S 

3430 

R2C2 

LHLD 

MATPTR 

2S0B 

23 

3440 

INX 

H 

260C 

23 

3460 

INX 

H 

2 SOD 

7E 

3460 

MOV 

A,M 

* GET  COL  X+2  CODE 

2S0E 

FE 

04 

3470 

CPI 

CTERM 

2 S10 

CA 

42 

26 

3480 

JZ 

R2JK 

2613 

09 

3490 

DAD 

B 

2614 

7E 

3600 

MOV 

A , M 

* GET  COL  X+2  FEATA 

2S1S 

E6 

80 

3610 

AN  I 

VOWEL 

2S17 

CA 

42 

26 

3620 

JZ 

R2JK 

• NOT  A VOWEL 

2S1A 

09 

3630 

DAD 

B 

2S1B 

09 

3640 

DAD 

B 

2S1C 

7E 

3660 

MOV 

A,M 

2 SID 

B7 

3660 

ORA 

A 

2S1E 

CA 

42 

26 

3670 

JZ 

R2JK 

* VOWEL  X+2  NOT  STRESSED 

2S21 

29 

3630 

DC  X 

H 

2S22 

36 

FF 

3690 

MVI 

M.-l 

• PUT  -1  STRESS  IN  COL  X+l 

2S24 

2B 

3600 

DCX 

H 

2S2S 

36 

FF 

3610 

MVI 

M,-l 

• PUT  -1  STRESS  IN  COL  X 

2S27 

C 3 

42 

26 

3620 

JMP 

R2JK 

2S2A 

3630 

• 

2S2A 

3640 

* STRESSX 

, X+l, X+2  — 1 <- 

/S, PLOS  -VOICE, LIQUID/ 

2S2A 

3660 

■* 

VOWEL  STRESS. NE.O 

2S2A 

3660 

0 

2 S2A 

2A 

00 

3S 

3670 

R2D 

LHLD 

MATPTR 

2S2D 

7E 

3680 

MOV 

A , M 

262S 

re 

32 

3690 

CPI 

CS 

2S30 

C2 

7D 

26 

3700 

JNZ 

R2E 

* THIS  COL  NOT  AN  S 

2S33 

23 

3710 

INX 

H 

2S34 

7E 

3720 

MOV 

A,M 

2S3S 

FE 

04 

37  30 

CPI 

CTERM 

2S37 

CA 

FB 

26 

3740 

JZ 

ENDR2 

* S IN  LAST  COL,  END  GROUP  2 

2S3A 

09 

37SO 

DAD 

B 

2S33 

09 

3760 

DAD 

B 

2S3C 

7E 

3770 

MOV 

A , M 

* GET  COL  X+l  FEATB 

2S3D 

EE 

20 

3780 

XRI 

PLOS 

2S3P 

E6 

BO 

3790 

ANI 

PLOS ♦VOICE 

2S41 

C 2 

F8 

26 

3800 

JNZ 

ENDR2 

• COL  X+l  NOT  UNVOICED  PLOSIVE 

2S4  4 

2A 

00 

3S 

3810 

LHLD 

MATPTR 

2 S47 

23 

3820 

INX 

H 

2 S4  3 

23 

38  30 

INX 

H 

2S49 

7E 

3840 

MOV 

A,M 

* GET  COL  X+2  CODE 

2S4A 

FE 

04 

3860 

CPI 

CTERM 

2S4C 

CA 

F8 

26 

3860 

JZ 

EKDR2 

* LAST  COL,  END  OF  GROUP 

2S4F 

09 

3870 

DAD 

B 

2SS0 

09 

* 

3880 

DAD 

B 

2SS1 

7E 

3890 

MOV 

A , M 

• GET  COL  X+2  FEATB 

2SS2 

E6 

04 

3900 

ANI 

LIQUID 

2 SS4 

CA 

F8 

26 

3910 

JZ 

ENDR2 

* NOT  A LIQUID 

2SS7 

2A 

00 

36 

3920 

LHLD 

MATPTR 

2SSA 

23 

39  30 

INX 

H 

2SSB 

23 

3940 

INX 

II 

266C 

23 

3960 

INX 

H 

2 SSD 

7E 

3960 

MOV 

A,  M 

* GET  COL  X+3  CODE 

2SSE 

fE 

04 

3970 

CPI 

CTERM 

2 S60 

CA 

F8 

26 

3980 

JZ 

ENDR2 

266  3 

09 

3990 

DAD 

B 

94 
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PACE  08 


A DDR 

Bl 

B2 

B 3 E 

CINE  LABEL 

OPCD 

OPERAND 

2864 

7B 

4000 

MOV 

A,M 

* GET  COL  X+3  FEATA 

2868 

E$ 

80 

4010 

AN  I 

VOWEL 

2867 

CA 

F8 

26 

4020 

JZ 

ENDR2 

• NOT  A VOWEL 

286A 

09 

4030 

DAO 

B 

286B 

09 

4040 

DAD 

B 

286C 

7E 

4080 

MOV 

A,M 

* GET  COL  X+3  STRESS 

286D 

B7 

4060 

ORA 

A 

286E 

CA 

F8 

26 

4070 

JZ 

ENDR2 

* VOWEL  MOST  BE  STRESSED 

2871 

23 

4080 

DC  X 

H 

2872 

36 

FF 

4090 

MV1 

M,-l 

+ SET  STRESS  X+2  - -1 

2874 

2B 

4100 

DC  X 

H 

2878 

36 

FF 

4110 

MVI 

M , -1 

* SET  STRESS  X+l  - -1 

2877 

2B 

4120 

DC  X 

H 

2878 

36 

FF 

4130 

MVI 

M,-l 

* SET  STRESS  X - -1 

287A 

C 3 

1 3 

26 

4140 

JMP 

ENDR2 

287D 

4180  * 

287D 

4160  * STRESSX, X+l»- 

<-  /T  OR  D,SH  OR  ZH/VCWEL  STRESS. 

287D 

4170  * 

2S7D 

2A 

00 

38 

4180  R2E 

LHLD 

MATPTR 

2 880 

7E 

4190 

MOV 

A.M 

* GET  COL  X CODE 

2881 

FE 

28 

4200 

CPI 

CT 

288  3 

CA 

8B 

28 

4210 

JZ 

R2E1 

* IT’S  A T 

2886 

FE 

2C 

4220 

CPI 

CD 

2883 

C 2 

ID 

26 

4230 

JNZ 

R2H 

* IT'S  NEITHER  T NOR  D 

288B 

23 

4240  R2E1 

I NX 

H 

2880 

7E 

4280 

MOV 

A , M 

* GET  COL  X+l  CODE 

2830 

FE 

04 

4260 

CPI 

CTERM 

288F 

CA 

42 

26 

4270 

JZ 

R2JK 

• LAST  COL 

2892 

FE 

13 

4280 

CPI 

CSH 

2891 

CA 

9C 

28 

4290 

JZ 

R2E2 

* COL  X+l  IS  SH 

2897 

FE 

17 

4 300 

CPI 

CZH 

2899 

C 2 

BA 

28 

4310 

JNZ 

R2P 

* X+l  IS  NEITHER  SH  OR  ZH 

289C 

23 

4320  R2E2 

I NX 

H 

2 89D 

7E 

4 3 30 

MOV 

A , M 

* GET  COL  X+2  CODE 

2898 

FE 

04 

4340 

CPI 

CTERM 

2 8A0 

CA 

42 

26 

4380 

JZ 

R2JK 

* LAST  COL 

2 8a  3 

09 

4360 

DAD 

B 

28A4 

7E 

4370 

MOV 

A , M 

•GET  COL  X+2  FEATA 

2 8A8 

E6 

80 

4 380 

AN  I 

VOWEL 

2 8A  7 

CA 

42 

26 

4390 

JZ 

R2JK 

* X+2  NOT  A VOWEL 

2 8AA 

09 

4400 

DAD 

B 

2 8AB 

09 

4410 

DAD 

B 

28AC 

7E 

4420 

MOV 

A , M 

• GET  COL  X+2  STRESS 

28AD 

B7 

44  30 

ORA 

A 

28AE 

CA 

42 

26 

44  40 

JZ 

R2JK 

• VOWEL  X+2  NOT  STRESSED 

2 8B1 

23 

4480 

OCX 

H 

28B2 

36 

FF 

. 

4 460 

MVI 

M,-l 

* SET  STRESS  X+l  • -1 

2884 

23 

4170 

DC  X 

H 

28B8 

36 

FF 

4480 

MVI 

M,-l 

• SET  STRESS  X - -1 

28B7 

C 3 

42 

26 

4490 

JMP 

R2JK 

2 88  A 

4 800  * 

28BA 

4810  * DX  <• 

VCWEL/T 

OR  D/ (WDBND, VOWEL)  OR  VOWEL  STRESS 

28BA 

4820  • 

28BA 

2A 

CO 

38 

4830  R2F 

LHLD 

MATPTR 

2 8BD 

2B 

4840 

DC  X 

H 

28BE 

7E 

4880 

MOV 

A,M 

•GET  COL  X-l  CODE 

28BP 

FE 

04 

4860 

CPI 

CTERM 

95 
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ADDR  Bl  B2  B3  E LINE  LABEL 


OPCD  OPERAND 


2sci  r a 42 

26 

4S70 

JZ 

R2JK 

• COL  X IS  1ST  COL 

2 SC 4 09 

4S80 

DAD 

B 

2SCS  7E 

4S90 

MOV 

A,M 

* GET  COL  X-l  FEATA 

2SC6  E6  80 

4600 

AN  I 

VOWEL 

2SC8  CA  42 

26 

4610 

JZ 

R2JK 

• NOT  A VOWEL 

2SCB  23 

4620 

INX 

H 

2 SCC  23 

4630 

INX 

H 

2 SCO  7E 

4640 

MOV 

A,M 

• GET  COL  X+l  FEATA 

2SCE  E6  04 

46S0 

ANI 

WDBND 

2SD0  C2  E3 

2S 

4660 

JNZ 

R2F  2 

* IT’S  A WORD  BOUNDARY 

2SD3  7E 

4670 

MOV 

A,M 

• GET  FEAT  A AGAIN 

2SD4  Ei  80 

4630 

ANI 

VOWEL 

2SD6  CA  42 

26 

4690 

JZ 

R2JK 

* IT'S  HOT  A VOWEL 

2SD9  09 

4700 

DAD 

B 

2SDA  09 

4710 

DAD 

B 

2SD9  7E 

4720 

MOV 

A,M 

* GET  COL  X+l  STRESS 

2SDC  B7 

4730 

ORA 

A 

2 SDD  CA  FS 

2S 

4740 

JZ 

R2F  3 

♦ VOWEL  IS  UNSTRESSED, 

2SE0  C 3 42 

26 

47S0 

JMP 

R2JK 

2SE3  2A  00 

3S 

4760  R2?2 

LHLD 

MATPTR 

2SE6  23 

4770 

INX 

H 

2SE7  21 

4780 

INX 

H 

2 SE8  7E 

4790 

MOV 

A,M 

• GET  COL  X+2  CODE 

2SE9  FE  04 

4300 

CPI 

CTERM 

2SEB  CA  42 

26 

4810 

JZ 

R2JK 

2SEE  09 

4820 

DAD 

8 

2SEF  7E 

4830 

MOV 

A,M 

2SF0  E6  80 

4840 

ANI 

VOWEL 

2SF2  CA  42 

26 

46S0 

JZ 

R2JK 

* IT'S  NOT  A VOWEL 

2SFS  3E  2F 

4660  R2F3 

MVI 

A,CDX 

2SF7  CD  Or 

20 

4870 

CALL 

MATPAK 

2SFA  C3  F8 

26 

4880 

JMP 

ENDR2 

2SFD 

4890  * 

2SFD 

4900  • UX 

<-  DENTAL/UW/ 

2SFC 

4910  • 

2SFD  2a  CO 

3S 

4920  R2C 

LHLD 

MATPTR 

260C  7E 

4930 

MOV 

A,M 

• GFT  COL  X CODE 

2401  FE  OE 

4940 

CPI 

CUW 

2413  C 2 ID 

26 

49S0 

JNZ 

R2H 

2404  2B 

4960 

DC  X 

H 

2407  7E 

4970 

MOV 

A,M 

• GET  COL  X-l  CODE 

2609  FE  04 

4930 

CPI 

CTERM 

26 OA  rA  Fi 

26 

4 99  3 

JZ 

ENDR2 

• UW  IS  IN  COL  1,  END  1 

2t:z  09 

sooo 

DAD 

B 

26. E ;•* 

6 313 

DAD 

B 

26  :f  7E 

S3  20 

MOV 

A.M 

• GET  COL  X-l  FEATS 

24i:  E4  :i 

S3  K* 

ANI  ' 

DENTAL 

2612  '■A  F6 

26 

S3  40 

JZ 

ENDR2 

• NOT  A DENTAL  CONSONAI 

261S  3E  22 

S3S3 

MVI 

A.CUX 

262  7 CO  y. 

23 

836  3 

CALL 

MATPAK 

• CHANGE  COL  TO  'JX 

26 1A  O 

26 

S 370 

JMP 

ENDR2 

2610 

SOSO  • 

2610 

S090  • XX 

<•  /K/VOWE 

L *TRONT 

2610 

S1C0  • 

2610  FE  29 

S110  R2H 

CPI 

ex 

26lr  C2  27 

26 

SI  20 

JNZ 

R2I 

• COL  X MUST  BE  EITHER 

2622  IE  2a 

SI  30 

MVI 

E,CKX 

96 


' 


PACE  10 


A DOR 

Bl 

B2 

Bl  E 

LINE 

LABEL 

OPCD 

OPERAND 

2624 

Cl 

2E 

26 

S140 

JMP 

R2HI 

2627 

SiSO 

• 

2627 

S160 

• GX  <« 

/G/VOWEL  -FRONT 

' 

2627 

S170 

• 

2627 

FE 

20 

S180 

R2I 

CPI 

CG 

2629 

C2 

42 

26 

S190 

JNZ 

R2JX 

• ...  OR  G 

262C 

IE 

2E 

S200 

MV1 

E.CGX 

262E 

21 

S210 

R2HI 

INX 

H 

262F 

7E 

S220 

HOV 

A,M 

* GET  COL  X*1  CODE 

2610 

FE 

04 

S210 

CPI 

CTERM 

2612 

CA 

42 

26 

S240 

JZ 

R2JK 

• PLOSIVE  IS  IN  LAST  COL 

2636 

09 

S2S0 

DAD 

B 

2636 

7E 

S260 

MOV 

A,M 

* GET  COL  X+l  FEATA 

2617 

EE 

80 

S270 

XRI 

VOWEL 

2639 

E6 

AO 

S280 

AN  I 

VOWEL+FRONT 

263B 

C2 

42 

26 

S290 

JNZ 

R2JK 

• NOT  A VOWEL  -FRONT 

263E 

7B 

S100 

MOV 

A,E 

26  3F 

CD 

OC 

20 

S110 

CALL 

MATPAK 

* CHANGE  COL  X TO  BACK  CONSONANT 

2642 

S320 

• 

2642 

S330 

• ADD  4 

TO  CODE 

<•  S/PLOS  -VOICE/ 

2642 

S 340 

• ADD  4 

TO  CODE 

<•  /PLOS  -VOICE/KORDBOUND 

2642 

SISO 

* 

2642 

2A 

00 

IS 

S360 

R2JK 

LHLD 

MATPTR 

2646 

09 

S170 

DAD 

B 

2646 

09 

S 180 

DAD 

B 

2647 

7E 

S390 

MOV 

A,M 

* GET  COL  X FEATB 

2648 

f 

20 

S4Q0 

XRI 

PLOS 

264A 

E6 

60 

S410 

ANI 

PLOS*  VO  ICE 

264C 

C2 

76 

26 

S420 

JNZ 

R2L 

• NOT  AN  UNVOICED  PLOSIVE 

264F 

2A 

00 

IS 

S4  30 

LHLD 

MATPTR 

2662 

2B 

S440 

OCX 

H 

2661 

7E 

S4S0 

MOV 

A,M 

• GET  CCL  X-l  CODE 

2664 

FE 

04 

S460 

CPI 

CTERM 

2666 

CA 

SE 

26 

S470 

JZ 

R2JK1 

* PLOSIVE  IS  IN  1ST  COL 

2669 

FE 

12 

S480 

CPI 

CS 

26  6B 

CA 

60 

26 

S490 

JZ 

R2JK2 

* COL  X-l  IS  S,  DO  THE  RULE 

266E 

21 

ssoo 

R2JK1 

INX 

H 

266F 

21 

SS10 

INX 

H 

2660 

7E 

SS20 

MOV 

A,K 

•GET  COL  X*1  CODE 

2661 

FE 

04 

SS30 

CPI 

CTERM 

2663 

CA 

F8 

26 

SS40 

JZ 

ENDR2 

• PLOSIVE  IS  IN  LAST  COL 

2666 

09 

SSSO 

DAD 

B 

.3667 

7E 

SS60 

MOV 

A,M 

• GET  COL  X*1  FEATA 

2668 

E6 

06 

SS70 

ANI 

WDBND+PHBND 

266A 

CA 

76 

26 

SS80 

JZ 

R2L 

* NOT  A BOUNDARY 

266D 

2A 

00 

IS 

SS90 

R2JK2 

LHLD 

MATPTR 

2670 

7E 

S600 

MOV 

A,M 

2671 

C6 

04 

S610 

ADI 

4 

2671 

CD 

OC 

20 

S620 

CALL 

MATPAK 

• ADD  4 TO  CODE  IN  COL  X 

2676 

S610 

• 

2676 

S640 

• -FLOS 

-PLOSA 

<•  /PLOS/OPTIONAL  MDBOUND.STCP 

2676 

S6S0 

• 

2676 

2A 

00 

IS 

S660 

R2L 

LHLD 

MATPTR 

2679 

S4 

S670 

MOV 

D.B 

; 

267A 

SO 

S680 

MOV 

E,  L 

267B 

09 

S690 

DAD 

8 

267C 

09 

S700 

DAO 

B 

97 


r 
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AODR 

Bl 

B2 

B3  E 

LINE 

LABEL 

OPCD 

OPERAND 

267D 

7E 

3710 

NOV 

A.H 

• GET  COL  X FEATB 

267E 

E6 

20 

3720 

ANI 

PLOS 

2680 

CA 

F8 

26 

3730 

JZ 

ENDR2 

• NOT  PLOSIVE,  ENO  GROUP  2 

2683 

EB 

3740 

XCHC 

* 

• LEAVE  DE  AT  COL  X FEATB 

2684 

23 

3730 

INX 

H 

2683 

7E 

3760 

NOV 

A#N 

• GET  COL  X+l  CODE 

2686 

PE 

04 

3770 

CPI 

CTERN 

2688 

CA 

F8 

26 

9780 

JZ 

ENDR2 

• PLOS  IN  LAST  COL,  EIID  GP  2 

268B 

FE 

00 

3790 

CPI 

CSPACE 

2680 

C2 

97 

26 

3800 

JNZ 

R2L2 

• X+l  IS  NOT  WDBOUND,  Y-X+l 

2690 

23 

9810 

INX 

H 

• X+l  IS  WDBOUND,  Y-X+2 

2691 

7E 

3820 

NOV 

A.H 

2692 

FE 

04 

3830 

CPI 

CTERN 

2694 

CA 

P8 

26 

3840 

JX 

ENDR2 

* WDBOUND  IS  LAST  COL 

2697 

09 

3830 

R2L2 

DAD 

B 

2698 

09 

3860 

DAD 

B 

2699 

7E 

9870 

NOV 

A.H 

• GET  COL  » FEATB 

269A 

E6 

80 

3880 

ANI 

STOP 

269C 

CA 

A6 

26 

3890 

JZ 

R2N  • 

269F 

1A 

3900 

LDAX 

D 

• GET  COL  X FEATB 

26A0 

E6 

CF 

3910 

ANI 

2 3 3-P LOS -PLOSA 

26A2 

12 

3920 

STAX 

D 

• DELETE  FEATURES  PLOS  6 PLOSA 

26A3 

C3 

F8 

26 

3930 

JNP 

ENDR2 

26A6 

3940 

* 

26A6 

3990 

* -PLOSA 

<•  /PLOSA /OPTIONAL  WDBOUND, WH  OR  HH 

26A6 

3960 

* 

26A6 

2A 

00 

39 

3970 

R2H 

LHLD 

NATPTR 

26A9 

94 

3980 

NOV 

D,  II 

26AA 

3D 

3990 

NCV 

E,L 

26AB 

09 

6000 

DAD 

B 

2 6 AC 

09 

6010 

DAD 

B 

26AD 

7E 

6020 

NOV 

A.H 

• GET  COL  X FEATB 

26AE 

E6 

10 

6030 

ANI 

PLOSA 

26B0 

CA 

F8 

26 

6040 

JX 

ENDR2 

* NOT  PLOSIVE  ASPIRATE,  END  2 

26B3 

EB 

6090 

XCHG 

• 

« LEAVE  DE  AT  COL  X FEATB 

26B4 

23 

6060 

INX 

H 

26B3 

7E 

6070 

NOV 

A.N 

• GET  COL  X+l  CODE 

26B6 

FE 

04 

6080 

CPI 

CTERN 

26B8 

CA 

F8 

26 

6090 

JZ 

ENDR2 

• PLOS  ASP  IS  IN  LAST  COL 

26BB 

FE 

00 

6100 

CPI 

CSPACE 

26BD 

C2 

C7 

26 

6110 

JNZ 

R2H2 

• X+l  IS  NOT  WDBOUND,  Y-X+l 

26C0 

23 

6120 

INX 

H 

* X+l  IS  WDBOUND,  Y-X+2 

26C1 

7E 

6130 

NOV 

A.H 

• GET  COL  Y CODE 

26C2 

FE 

04 

6140 

CPI 

CTERN  . 

26C4 

CA 

F8 

26 

6130 

JZ 

ENDR2 

• WDBOUND  IS  LAST  COL 

26C7 

FE 

1C 

6160 

R2M2 

CPI 

CNH 

26C9 

CA 

F4 

26 

6170 

JZ 

R2MN 

* COL  Y IS  WH,  DO  THE  RULE 

26CC 

FE 

3A 

6180 

CPI 

CHH 

26CE 

CA 

F 4 

26 

6190 

JZ 

R2HN 

• COL  Y IS  HH,  DO  THE  RULE 

26D1 

6200 

• 

26D1 

6210 

• -PLOSA 

<•  -BOUNDARV/PLOS A/VOW EL  STRESS. EO.O 

26D1 

6220 

• 

2601 

2A 

00 

33 

6230 

R2N 

LHLD 

NATPTR 

2604 

23 

6240 

INX 

H 

26D3 

09 

6230 

DAD 

B 

2606 

7E 

6260 

NOV 

A.N 

• GET  COL  X+l  FEATA 

26D7 

E6 

• 

80 

6270 

ANI 

VOWEL 

98 


f 
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ADDS 

ai 

B2 

Bl  E 

LINE 

LABEL 

OPCD 

OPERAND 

2609  CA 

FB 

26 

6280 

JS 

ENDR2 

* 

NOT  A VOWEL 

2 6 DC 

09 

6290 

DAO 

B 

2 tOO 

09 

6300 

DAD 

B 

260E 

7E 

6310 

MOV 

A.M 

• 

GET  COL  X+l  STRESS 

26DF 

B7 

6320 

ORA 

A 

26E0 

C2 

F8 

26 

6330 

JNZ 

ENDR2 

* 

VOWEL  IS  STRESSED,  END  GP  2 

26E  3 

2A 

00 

39 

6340 

LHLD 

MATPTR 

26E6 

2B 

6390 

DC  X 

H 

26E7 

7E 

6360 

MOV 

A.M 

• 

GET  COL  X-l  CODE 

26E8 

FE 

04 

6370 

CPI 

CTERM 

26EA  CA 

F8 

26 

6180 

JZ 

ENDR2 

26ED 

09 

6390 

DAD 

B 

26EE 

7E 

6400 

MOV 

A.M 

• 

GET  COL  X-l  FEATA 

26EF 

E6 

06 

6410 

AN  I 

WDBND+PHBND 

26F1 

C2 

Ft 

26 

6420 

JNZ 

ENDR2 

• 

EITHER  BOUNDARY  STOPS  THE  RULE 

26F4 

1A 

6430 

R2MN 

LDAX 

0 

* 

GET  COL  X FEATB 

26F9 

E6 

EF 

6440 

AN  I 

299-PLCSA 

26F7 

12 

6490 

STAX 

D 

• 

DELETE  COL  X PLOSA  FEATURE 

26F  8 

6460 

• 

26F8 

6470 

• END  OF 

RULE  GROUP  2 

26F8 

6480 

• 

26F8 

00 

6490 

ENDR2 

NOP 

* 

• 

BREAKPOINT  LOC 

26F9 

2A 

00 

36 

6900 

LHLD 

MATPTR 

26FC 

23 

6910 

INX 

H 

26FD 

22 

00 

39 

6920 

SHLD 

MATPTR 

2700 

EB 

6930 

XCHG 

2701 

2A 

02 

39 

6940 

LHLD 

NEGEND 

2704 

19 

6990 

DAD 

0 

2709 

08 

6960 

RC 

# 

• 

RETURN  IP  AT  ENO  OP  MATRIX 

2706 

EB 

6970 

XCHG 

2707 

C 3 

81 

24 

6980 

JMP 

R2LOOP 

270A 

6990 

• 

270A 

6600 

ft 

270A 

6610 

• 

270A 

6620 

• SUBROUTINES 

270A 

6630 

• 

270A 

6640 

* MOVE  DATA  IN 

MATRIX  AND 

INSERT  A COLUMN 

270A 

6690 

• 

270A 

11 

61 

39 

6660 

NATNSR 

LXI 

d.matrix+matlen-2 

270D 

2A 

02 

39 

6670 

LHLD 

NEGEND 

* 

IS  THERE  ROOM  TO  INSERT 

2710 

19 

6680 

DAD 

D 

2711 

02 

OF 

20 

6690 

JNC 

MATERR 

• 

NO 

2714 

r9 

6700 

PUSH 

PSW 

* 

YES,  SAVE  THE  NEW  CODE 

2719 

2A 

00 

39 

6710 

LHLD 

MATPTR 

* 

COMPUTE  • OF  COLS  TO  MOVE 

2718 

EB 

6720 

XCHG 

1719 

2A 

02 

39 

6730 

LHLD 

NEGEND 

271C 

19 

, 

6740 

DAD 

D 

271D 

70 

6790 

MOV 

A,  L 

271E 

2F 

6760 

CMA 

271F 

5C 

6770 

INR 

A 

2720 

3C 

6780 

INR 

A 

2721 

32 

El 

36 

6790 

STA 

COUNT 

2724 

6F 

6800 

MOV 

L,  A 

• 

COMPUTE  NEW  ADDR  OF  LAST  COL 

2729 

26 

00 

6810 

MVI 

H.O 

2727 

19 

6820 

DAD 

D 

2723 

22 

DF 

36 

6830 

SHLO 

MOVAD 

272B 

2A 

OF 

36 

6840 

INSR1 

LHLD 

HOVAD 
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ADDR 

B1 

B2 

Bl 

E LINE 

LABEL 

OPCD 

272E 

S4 

68S0 

MOV 

272F 

SC 

6860 

MOV 

2730 

IB 

6870 

OCX 

2731 

3A 

El 

36 

6880 

LDA 

2734 

4F 

6890 

MOV 

273S 

1A 

6900 

INSR2 

LDAX 

2736 

77 

6910 

MOV 

2737 

IB 

6920 

OCX 

2738 

2B 

6930 

OCX 

2739 

OO 

6940 

DCR 

273A 

C2 

IS 

27 

69S0 

JNZ 

27  30 

2A 

OF 

36 

6960 

LHLD 

2740 

11 

SF 

00 

6970 

LXI 

2743 

19 

6980 

CAD 

2744 

22 

DF 

36 

6990 

SHLD 

2747 

11 

21 

C9 

7000 

LXI 

274A 

19 

7010 

DAD 

2743 

02 

2B 

27 

7020 

JNC 

274E 

Fi 

7030 

POP 

274F 

CD 

OC 

20 

7040 

CALL 

27S2 

39 

70S0 

DAD 

27S3 

36 

00 

7060 

NVI 

27SS 

09 

7070 

DAD 

27S6 

36 

00 

7080 

MVI 

27S8 

2A 

02 

3S 

7090 

LHLD 

2 7 SB 

2B 

7100 

DC  X 

27SC 

22 

02 

IS 

7110 

SHLD 

27SP 

2A 

00 

IS 

7120 

LHLD 

2762 

21 

7130 

INX 

2763 

22 

00 

IS 

7140 

SHLD 

2766 

AF 

71S0 

XRA 

2767 

C9 

7160 

RET 

2768 

7170 

* 

2768 

7180 

* END  OF 

SECT2 

OPERAND 

0,11 

E,I> 

D 

COUNT 

C, A 

D • MOVE  A ROW  RIGHT  1 LOT 

M,A 
D 
■ 

C 

INSR2 

MOVAD  * UPDATE  NEW  POINTER 

D. MATLEN 
0 

MOVAD 

D,-MATEND  * ANY  MORE  ROWS? 

0 

1NSR1  * YES 

PSW  • GET  THE  NEW  CODE 

MATPAK  * SET  CODE  AND  FEATURES 

B 

M,0  • PUT  0 STRESS  IN  NEW  COE 

B 

M,0  • PUT  0 OU RATION  IN  NEW  CO 

NEGENO  • DONE,  DECREMENT  NEGEND 
H 

NEGEND 

MATPTR  * AND  INCREMENT  MATPTR  . 

H 

MATPTR 

A • CLEAR  ERROR  CONDITION 


100 
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A COR  Bl 

B2 

B3  E 

LINE  LABEL 

OPCO 

OPERAND 

20)0 

0010  • RULES 

GROUP 

1 

2000 

0020  • 

2000 

0030  • SECTION  3 OF 

THE  CSRl  SYNTHESIS  BY  RULE  SYSTEM 

1 

2000 

0040  • 

2000 

00S0  « LLOYD 

RICE, 

COMPUTALKER  CONSULTANTS 

2000 

0060  • VERSION  1.08 

MAY  30,  1977 

2000 

0070  • 

j 

2000 

0080  «••*••• 

»• 

2000 

0090  • 

200) 

0100  • COMMON  JUMP 

ADDRESS  TABLE 

I 

2000 

0110  • 

2000 

0120  COM JM P 

EOU 

$ 

2000 

0130  • 

2000 

0140  CSRl 

DS 

3 

2003 

)1S0  PLAY 

DS 

3 

2006 

0160  BUFADR 

DS 

2 

2008 

0170  BUFEND 

DS 

2 

200A 

0180  PVTAB 

DS 

2 

2oor 

0190  NATPAK 

DS 

3 

20or 

0200  MATERR 

DS 

3 

2012 

0210  RULES 

OS 

3 

2J1S  C J 

70 

27 

0220 

JMP 

SCTDUR 

2018  C) 

IF 

28 

0230 

JMP 

RULES  3 

201B 

0240  GENKO 

OS 

3 

201E 

02SC  CLRBUF 

OS 

3 

2021 

0260  GENPRM 

DS 

3 

2024 

0270  MUL 

DS 

3 

2027 

0280  D1V 

DS 

3 

202A 

0290  DUMMY 

DS 

16 

20  )A 

0300  • 

20 1A 

0310 

• * 

20  3A 

0320  • 

20  7A 

0)30  • COMRAN  ORICEN  DEFINITION 

203A 

0)40  * 

203A 

0 )S0 

ORG 

COMJMP41SOOH 

ISO) 

0160  COMRAM 

ECU 

$ 

3S00 

0370  • 

3S00 

0380  • CSRl 

SYSTEM 

RAM  SPACE  DEFINITION 

3 SO) 

0390  • 

3S00 

0400  MATPTR 

DS 

2 

3S02 

0410  NEGEND 

DS 

2 

3S04 

0420  MATRIX 

ECU 

8 

3 SO  4 

0430  MATLEN 

EOU 

9S 

3S04 

0440  PHCODE 

DS 

MATLEN 

3S6  3 

04S0  FEATA 

DS 

MATLEN 

3SC2 

0460  FEATB 

DS 

MATLEN 

3621 

0470  STRES 

DS 

MATLEN 

3680 

0480  DUR 

DS 

MATLEN 

j 

36DF 

0490  MATEND 

ECU 

8 

36QF 

OSOO  • 

360F 

OSIO  • RULES 

GROUP 

3 (LOCAL)  RAM  WORKSPACE 

360F 

0S2)  • 

36DF 

0S30  PREVBD 

DS 

2 

36E1 

0S40  NV 

DS 

1 

36E2 

OSSO  NEXT 

DS 

1 

36E3 

0S60  • 

36E3 

0S70  

• • 
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A OCR  El 

•2  B3  E LINE  LABEL 

OPCO 

OPERAND 

36E3 

oseo  • 

36E3 

0690  • CSRl  SECTION 

3 CODE 

36E3 

0600  • 

36E3 

0610 

ORG 

CONJHP+770H 

2770 

0620  SECTAO 

ECU 

$ 

2770 

0630  • 

2770 

0640  •••••••*•• 

2770 

0660  • 

2770 

0660  * PHONEME 

CODE 

DEFINITIONS 

2770 

0670  • 

2770 

0680  CSPACE 

EOU 

0 

2770 

0690  CTERM 

EQU 

4 

2770 

0700  CUW 

EQU 

14 

2770 

0710  CUX 

ECU 

18 

2770 

0720  CRX 

EQU 

24 

2770 

0730  CLX 

EQU 

26 

2770 

0740  CKX 

ECU 

26 

2770 

0760  CYX 

EQU 

27 

2770 

0760  CR 

EQU 

32 

2770 

0770  CW 

EOU 

34 

2770 

0780  CL 

EQU 

33 

2770 

0790  CH 

ECU 

36 

2770 

0800  CN 

ECU 

37 

2770 

0810  CNX 

EQU 

38 

2770 

0820  CP 

ECU 

39 

2770 

0830  CT 

ECU 

40 

2770 

0840  CX 

ECU 

41 

2770 

0860  CKX 

EQU 

42 

2770 

0860  CB 

EQU 

43 

2770 

0870  CO 

EQU 

44 

2770 

0880  CC 

EQU 

46 

2770 

0890  CGX 

EQU 

46 

2770 

0900  COX 

ECU 

47 

2770 

0910  CS 

ECU 

60 

2770 

0920  CSH 

ECU 

61 

2770 

0930  CZ 

EQU 

64 

2770 

0940  CZH 

ECU 

66 

2770 

0960  CO 

EQU 

69 

2770 

0960  • 

2770 

0970  • DEPINE 

FEATURE  LABELS 

2770 

0980  • 

2770 

0990  VOWEL 

EQU 

80H 

2770 

1000  CONS 

ECU 

40H 

2770 

1010  FRONT 

ECU 

20H 

2770 

1020  CIPHTH 

EOU 

10H 

2770 

10  30  WDBND 

EOU 

4 

2770 

1040  PHBND 

ECU 

2 

2770 

1060  IGNORE 

ECU 

1 

2770 

1060  STOP 

EOU 

80H 

2770 

1070  VOICE 

ECU 

40H 

2770 

1080  PLOS 

ECU 

20N 

2770 

1090  PLOSA 

EQU 

10H 

2770 

1100  FRIC 

ECU 

8 

2770 

1110  LIQUID 

ECU 

4 

2770 

1120  NASAL 

ECU 

2 

2770 

1130  DENTAL 

ECU 

1 

2770 

1140  • 

f 
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ADDR 

B1 

B2 

B3  E 

LINE 

LABEL 

OPCD 

OPERAND 

2770 

1130 

• *< 

»•**« 

• •• 

2770 

1160 

2770 

1170 

ALL 

DURATIONS 

ARE  ASSIGNED  AND  MANIPULATED 

2770 

1180 

IN  UNITS  OF  2. 

3 MSEC  IN  THIS  SECTION. 

2770 

1190 

FINALLY 

, AT  THE  END  OF  RULES 3,  THE  DURATION 

2770 

1200 

VALUES 

ARE  DIVIDED  BY  4 TO  GIVE  UNITS  OF 

2770 

1210 

10  NSEC 

, CORRESPONDING  TO  THE  ACTUAL  FRAME 

2770 

1220 

COUNT  FOR  EACH  PHON  (EACH  MATRIX  COLUMN!. 

2770 

1230 

2770 

1240 

SET 

DURATION  ROW  OF  MATRIX  FROM  TABLE 

2770 

1230 

2770 

21 

03 

33 

1260 

SETDUR 

LXI 

H.MATRIX+1 

2773 

22 

00 

33 

1270 

SHLD 

MATPTR 

2776 

01 

3F 

00 

1280 

LXI 

B.MATLEN 

2779 

3E 

1290 

SDLOOP 

MOV 

E, M * GET  CODE  X INTO  E 

277A 

09 

1300 

DAD 

B 

277B 

09 

1110 

DAO 

B 

277C 

09 

1120 

DAD 

B 

2770 

7E 

1330 

MOV 

A.M  • GET  STRESS  X INTO  A 

277E 

EE 

06 

1340 

CPI 

6 

2780 

FA 

86 

27 

1130 

JM 

SD1 

2733 

3E 

00 

1360 

MVI 

A.O  * STRESS. GT. 3,  SET  IT  TO  0 

2783 

77 

1370 

MOV 

M#A 

2786 

E3 

1380 

SOI 

PUSH 

H 

2787 

C6 

FF 

1390 

ADI 

233  • SET  CARRY  IF  A.NE.O 

2789 

73 

1400 

MOV 

A.E 

278A 

17 

1410 

RAr- 

278B 

3F 

1420 

MOV 

E.  A 

278C 

16 

00 

1430 

MVI 

D.  0 

278E 

21 

A7 

27 

1440 

LXI 

H, DURTAB 

2791 

19 

1430 

DAD 

D • COMPUTE  LOC  IN  DURATION  TABLE 

2792 

7E 

1460 

MOV 

A.M  • GET  DURATION  (IN  2 MSEC  UNITS) 

2793 

E] 

1470 

POP 

H 

2794 

09 

1480 

DAD 

B 

2793 

77 

1490 

MOV 

M,A  • PUT  OUR  VALUE  IN  THE  MATRIX 

2796 

2A 

00 

33 

1300 

LHLD 

MATPTR 

2799 

23 

1310 

INX 

H 

279A 

22 

00 

33 

1326 

SHLD 

MATPTR  * INCREMENT  POINTER 

2790 

EB 

1310 

XCHG 

279E 

2A 

02 

33 

1340 

LHLD 

NEGEND 

27A1 

19 

1330 

DAD 

D 

27A2 

D8 

1360 

R r 

• • RETURN  IF  END  OF  MATRIX 

27A3 

EB 

1370 

XCHG 

27A4 

C3 

79 

27 

1380 

JMP 

SDLOOP 

27A7 

1390 

* 

27A7 

1600 

• 

TABLE  OF  DURATION  VALUES  (IN  2.3  MSEC  UNITS) 

27A  7 

1610 

• 

EACH  PHON  HAS 

A STRESSED  DURATION  VALUE 

27A7 

1620 

• 

AND 

AN 

UNSTRESSED  DURATION  VALUE. 

27a7 

1610 

• 

27A7 

00 

1640 

DURTAB 

DB 

0 * SPACE  (WDBNF  • 

27A8 

00 

1630 

DB 

0 

27A9 

00 

1660 

DB 

0 • PERIOD 

27AA 

00 

1670 

DB 

0 

2 7AB 

48 

1680 

DB 

72  • COMMA  (PAUSE) 

2 7 AC 

48 

1690 

DB 

72 

27AO 

00 

1700 

DB 

0 • QUEST 

27  AE 

00 

1710 

DB 

0 

U 
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ADDR  B1  B2  B3  E LINE  LABEL  OPCD  OPERAND 


27AP  00 

1720 

OB 

0 

* 

TERN 

27B0  00 

1730 

DB 

0 

27B1  22 

1740 

OB 

34 

IT,  UNSTRESSED 

27B2  2B 

1760 

DB 

43 

IT,  STRESSED 

2783  ID 

1760 

DB 

29 

IH,  UNSTRESSED 

2784  22 

1770 

DB 

34 

IH,  ETC. 

27B6  22 

1780 

DB 

34 

EH 

27B6  2B 

1790 

DB 

43 

27B 7 IF 

1800 

DB 

31 

AE 

27BS  3* 

1810 

DB 

68 

27B9  2B 

1820 

DB 

43 

AA 

27BA  3C 

1830 

DB 

60 

27l»B  18 

1840 

DB 

24 

AH 

27BC  2A 

1860 

DB 

42 

27BD  30 

1860 

DB 

48 

AO 

27BE  40 

1870 

DB 

64 

27BF  3A 

1880 

DB 

68 

OW 

27C0  3A 

1890 

DB 

68 

27C1  29 

1900 

DB 

41 

UH 

27C?  2E 

1910 

DB 

46 

27C3  24 

1920 

DB 

36 

UW 

27C4  38 

1930 

DB 

66 

27C6  16 

1940 

DB 

22 

AX 

27C6  18 

1960 

DB 

24 

27C7  16 

1960 

DB 

22 

IX 

27C8  18 

1970 

DB 

24 

27C9  2B 

1980 

DB 

43 

ER 

27CA  38 

1990 

DB 

66 

27CB  24 

2000 

DB 

36 

UX 

27CC  38 

2010 

DB 

66 

27CD  26 

2020 

DB 

38 

OH 

27CE  38 

2030 

DB 

66 

27CF  30 

2040 

DB 

48 

AH 

2700  1A 

2060 

oa 

68 

27D1  30 

2060 

DB 

48 

AY 

27D2  1A 

2070 

DB 

68 

27D3  30 

2060 

DB 

48 

OY 

2704  3A 

2090 

DB 

68 

27D6  36 

2100 

DB 

63 

EY 

2706  37 

2110 

DB 

66 

2707  26 

2120 

DB 

38 

RX 

2708  30 

2130 

DB 

48 

2709  26 

2140 

DB 

38 

LX 

27DA  28 

2160 

DB 

43 

27DB  20 

2160 

DB 

32 

KX 

27DC  20 

2170 

DB 

32 

2700  10 

2180 

DB 

29 

YX 

27DE  20 

2190 

DB 

32 

27DP  22 

2200 

DB 

34 

WH 

27E0  2A 

2210 

DB 

42 

27E1  00 

2220 

DB 

0 

EL 

27E2  00 

2230 

DB 

0 

27E3  00 

2240 

DB 

0 

EM 

27E4  00 

2260 

DB 

0 

27E6  00 

2260 

DB 

0 

EN 

27E6  00 

2270 

DB 

0 

27E7  1C 

2280 

DB 

28 

R 

ADOR  B1  B2  B3 

E LINE  LABEL 

OPCD 

OPERAND 

27E8  28 

2290 

DB 

40 

27E9  18 

2300 

DB 

24 

* L 

27EA  22 

2310 

DB 

34 

27E8  20 

2320 

DB 

32 

♦ W 

2 7 EC  20 

2330 

DB 

32 

27EO  18 

2340 

DB 

24 

• y 

27EE  20 

2380 

DB 

32 

27EF  1C 

2360 

OB 

28 

* M 

27F0  IE 

2370 

DB 

30 

27F1  1C 

2330 

DB 

28 

• N 

27F2  IE 

2390 

DB 

30 

27F3  1C 

2400 

DB 

23 

• NX 

27F4  IE 

2410 

DB 

30 

27FS  20 

2420 

DB 

32 

• P 

27F6  20 

24  30 

DB 

32 

27F7  10 

2440 

DB 

16 

» x 

27F8  18 

2480 

DB 

24 

27F9  18 

2460 

DB 

24 

• K 

27FA  18 

2470 

DB 

24 

27FB  18 

2480 

DB 

24 

» KX 

27FC  13 

2490 

DB 

24 

27FO  18 

2800 

DB 

24 

• B 

27FE  1A 

2810 

DB 

26 

27FF  12 

2820 

DB 

18 

* D 

2300  1« 

2830 

DB 

20 

2801  18 

2940 

DB 

24 

* G 

2302  18 

2880 

DB 

24 

2301  18 

2960 

DB 

24 

• GX 

2804  18 

2870 

D3 

24 

2809  OA 

2980 

DB 

10 

* DX 

2306  OC 

2890 

DB 

12 

2307  2A 

2600 

DB 

42 

• F 

2808  2C 

2610 

DB 

44 

2809  26 

2620 

DB 

38 

• TH 

280 A 23 

2630 

DB 

40 

280B  30 

2640 

DB 

48 

* s 

20QC  30 

2680 

DB 

48 

2800  2C 

2660 

DB 

44 

• SH 

230E  2C 

2670 

DB 

44 

2tOF  1A 

2680 

DB 

26 

• V 

2810  IE 

2690 

DB 

30 

2811  18 

2700 

DB 

24 

* DU 

2312  13 

2710 

DB 

24 

2313  18 

2720 

DB 

24 

♦ z 

2614  16 

2730 

OB 

24 

231S  13 

2740 

DB 

24 

• ZH 

2616  18 

2780 

DB 

24 

2817  00 

2760 

DB 

0 

« CH 

2318  00 

2770 

DB 

0 

2dl9  00 

2780 

DB 

0 

• JH 

2dlA  00 

2790 

DB 

0 

231B  13 

2300 

DB 

24 

* HH 

231C  1C 

2610 

DB 

28 

2810  OA 

2320 

DB 

10 

• 0 

281E  OA 

2830 

DB 

10 

261F 

2340  * 

231F 

2880  

• • 
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ADDR 

B1 

B2 

B3  E 

LINE 

LABEL 

OPCD 

OPERAND 

281F 

2860 

• 

281F 

2870 

» RULES 

GROUP  3 

281F 

2830 

ft 

201F 

2890 

ft* 

231F 

2900 

• 

281F 

00 

2910 

RULES  3 

NOP 

2820 

AF 

2920 

XRA 

A 

2821 

32 

El 

36 

2930 

. STA 

NV  * CLEAR 

VOWEL 

COUNTER 

2824 

32 

E2 

36 

2940 

STA 

NEXT  * CLEAR 

NEXT 

(RULE  3B) 

2627 

01 

sr 

00 

29S0 

LXI 

B,NATLEN 

28  2A 

21 

os 

3S 

2960 

LXI 

H , MATRI X+l 

2820 

22 

00 

3S 

2970 

shld 

MATPTR 

28  30 

2980 

R3LOOP 

ECU 

s 

2330 

2990 

* 

2830 

3000 

• 

2830 
23  30 
2330 


3010  * IN  THE  SPAN  BETWEEN  TWO  WORD  OR  PHRASE  BOUNDARIES 
3020  * CHANGE  THE'  DURATION  OF  EACH  STRESSED  VOWED 
3030  • BY  (NV*1)/(2*NV) , WHERE  NV  IS  THE  NUMBER  OF 


2830 

3040  « VOWELS 

IN  THE 

SPAN. 

28  30 

30S0  • 

28  10 

09 

3060  R3A 

DAD 

B 

2831 

01 

El 

36 

3070 

LXI 

B , NV 

2834 

7E 

3080 

HOV 

A,M 

* 

GET  COL  X FEATA 

28  IS 

E6 

06 

3090 

AN  I 

KDBND+PHBNO 

2837 

C2 

46 

28 

3100 

JNZ 

R3A2 

* 

EITHER  BOUND.  COMPUTE 

233A 

7E 

1110 

MCV 

A , M 

* 

NOT  A BOUNDARY,  IS  IT 

28  3B 

E6 

80 

3120 

AN  I 

VOWEL 

23  3D 

CA 

AB 

28 

3130 

JZ 

R3B 

* 

NO 

2c  10 

OA 

3140 

LDAX 

B 

% 

YES,  INCREMENT  NV 

2841 

3C 

31S0 

INR 

A 

2842 

02 

3160 

STAX 

B 

2843 

c? 

AB 

28 

3170 

JMP 

R3B 

2346 

OA 

3180  R3A2 

LDAX 

B 

* 

GET  NV 

2347 

FE 

02 

3190 

CPI 

2 

2849 

CA 

Al 

28 

3200 

JC 

R3AS 

• 

0 OR  1 VOWEL,  NO  DUR  1 

284C 

1C 

3210 

INR 

A 

2840 

oF 

3220 

MOV 

l,a 

* 

PUT  (N+l) *64  IN  HL 

234E 

26 

00 

3230 

MVI 

H,  0 

2 8 SO 

29 

3240 

DAD 

H 

23S1 

29 

32SO 

DAD 

H 

28S2 

29 

3260 

DAD 

H 

23S3 

29 

3270 

DAO 

H 

23S4 

29 

3280 

DAD 

H 

23SS 

29 

3290 

DAD 

H 

28S6 

EB 

3 300 

XCHG 

* 

* 

THEN  INTO  DE 

28S7 

OA 

3310 

LDAX 

B 

• 

GET  NV  AGAIN 

28S8 

6F 

3330 

MOV 

L,A 

23S9 

26 

00 

3330 

MVI 

H , 0 

23SB 

23 

3340 

INX 

K 

28SC 

CD 

27 

20 

33SO 

CALL 

DIV 

• 

RESULT  IS  DUR  RATIO  11 

23SF 

7D 

3360 

MOV 

ApL 

2860 

02 

3370 

STAX 

B 

• 

SAVE  IT  IN  NV 

2861 

2A 

DF 

36 

3380 

LHLD 

PREVBD 

2364 

23 

3390 

INX 

H 

286S 

7C 

3400 

HOV 

A#H 

• 

-(PREVBD) -2  INTO  DE 

2866 

2P 

3410 

CHA 

2867 

S7 

3420 

HOV 

D,A 
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A DDR 

B1 

B2 

B3  E 

LINE  LABEL 

OPCD 

OPERAND 

2863 

70 

3430 

MOV 

A.L 

2869 

2P 

3440 

CMA 

286A 

9F 

3490 

MOV 

E.A 

2863 

2A 

00 

39 

3460 

LHLD 

MATPTR 

296E 

19 

3470 

DAD 

D 

• 

(MATPTR)- (PREVBD) -2  INTO  !!L 

286F 

90 

3480 

MOV 

E,L 

* 

E IS  COL  COUNTER  FOR  THE  SPAN 

2870 

01 

8F 

00 

3490  R3A3 

LXI 

B .MATLEN 

2873 

2A 

OF 

36 

1900 

LHLD 

PREVBD 

2376 

23 

3910 

INX 

H 

* 

SCAN  THE  SPAN 

2377 

22 

OF 

36 

3920 

SHLD 

PREVBD 

267A 

09 

3930 

DAD 

B 

287B 

7E 

3940 

MCV 

A.M 

* 

GET  FEATA 

287C 

E6 

80 

1990 

AN  I 

VOWEL 

237E 

0A 

9D 

23 

3950 

JZ 

R3A4 

* 

NOT  A VOWEL 

2381 

09 

3970 

DAD 

B 

2882 

09 

3980 

DAD 

B 

2383 

7E 

3990 

MOV 

A,M 

* 

GET  THE  STRESS  VALUE 

2894 

97 

3600 

ORA 

A 

2389 

OA 

90 

28 

3610 

JZ 

R3A4 

* 

VOWEL  NOT  STRESSED 

2888 

09 

3620 

DAD 

B 

2899 

3A 

El 

36 

3630 

LDA 

NV 

2880 

47 

3640 

MOV 

E.A 

2980 

09 

3690 

PUSH 

D 

288E 

9E 

3660 

MOV 

E.M 

* 

PUT  OLD  DURATION  IN  DE 

288F 

OD 

24 

20 

3670 

CALL 

MUL 

* 

NEW  DUR  *64  IK  HL 

2392 

EB 

3630 

XCHG 

2893 

29 

3690 

DAD 

H 

2894 

29 

3700 

DAD 

H 

2899 

EB 

3710 

XCHG 

2896 

7B 

1720 

MOV 

A.E 

* 

NEW  DUR  INTO  A 

2897 

17 

3730 

RAL 

2898 

7A 

1740 

MOV 

A.D 

2899 

OE 

00 

3790 

AC  I 

0 

2998 

77 

3760 

MOV 

M,A 

2390 

01 

3770 

POP 

D 

289D 

10 

1780  R3A4 

DC  R 

E 

239E 

02 

70 

28 

3790 

JNZ 

R3A3 

28A1 

AF 

3800  R3A9 

XRA 

A 

28A  2 

32 

El 

36 

1810 

STA 

NV 

* 

CLEAR  THE  VOWEL  COUNTER 

28A9 

2A 

00 

39 

3320 

LHLD 

MATPTR 

23A8 

22 

OF 

36 

1830 

SHLD 

PREVBD 

• 

UPDATE  PREVBD 

28AB 

3840  • 

28AB 

3890  * DUR*1. 

38  <■  / 

LAST  VOWEL 

OF  A PHRASE,  .../PHBND 

28AB 

3860  * 

• 

28A6 

2A 

00 

39 

3970  RIB 

LHLD 

MATPTR 

28AE 

01 

9F 

00 

3830 

LXI 

B, MATLEN 

» RESTORE  BC 

23B1 

09 

3890 

DAD 

B 

23B2 

7E 

3900 

NOV 

A.M 

• 

GET  COL  X FEATA 

2833 

E6 

02 

1910 

ANI 

PHBND 

28B9 

OA 

08 

28 

1920 

JZ 

R3C 

23B8 

2B 

1930  R33  2 

DCX 

H 

2399 

7E 

3940 

MOV 

A.M 

• 

GET  PREV  COL  FEATA 

26  9A 

E6 

02 

3990 

ANI 

PHBND 

28BO 

02 

08 

28 

3960 

JNZ 

R3C 

• 

STOP  SCAN  IF  PHDOUND 

2BBF 

E9 

3970 

PUSH 

H 

2800 

09 

3980 

DAD 

B 

2801 

09 

3990 

DAD 

B 

107 


r 


PACE  08 


A DDR 

Bl 

B2 

B3  E 

LINE 

LABEL  OPCD 

OPERAND 

28C2 

09 

4000 

DAO 

B 

28C3 

46 

4010 

MOV 

B,K 

• GET  PRESENT  DUR  INTO  B 

28C4 

IE 

S8 

4020 

MVI 

E.S8K 

• 1.38  (SHIFTED)  INTO  E 

28C  6 

CD 

24 

20 

4030 

CALL 

MUL 

• (B)*(E)  INTO  DE 

28C9 

EB 

4040 

XCHG 

2BCA 

29 

40S0 

DAD 

H 

• SHIFT  BIN  PT  TO  BYTE  BOUNDARY 

2ace 

29 

4060 

DAD 

H 

28CC 

EB 

4070 

XCHG 

2 BCD 

72 

4080 

MOV 

K,D 

• UPDATE  DURATION 

28CE 

El 

4090 

POP 

H 

28CF 

01 

SF 

00 

4100 

LX1 

B.MATLEN  • RESTORE  B,C,K,L 

28D2 

7E 

4110 

MOV 

A,M 

« GET  FEATA  AGAIN 

2803 

E6 

80 

4120 

AN  I 

VOWEL 

230S 

CA 

B8 

28 

4130 

JZ 

R3B2 

• NOT  A VOWEL,  CONTINUE 

2308 

4140 

* 

2808 

41S0 

• DUR*0. 6 <-  /VOWEL/PLOS  -VOICE 

2808 

4160 

• 

28D8 

00 

4170 

R3C  NOP 

280  j 

2A 

00 

3S 

4180 

LHLD 

MATPTR 

28DC 

09 

4190 

DAD 

B 

28DD 

7E 

4200 

MOV 

A,M 

* GET  COL  X FEATA 

23DE 

E6 

80 

4210 

AN  I 

VOWEL 

28E0 

CA 

39 

29 

4220 

JZ 

R3F 

* NOT  A VOWEL 

28E3 

2A 

00 

3S 

4 230 

LHLD 

MATPTR 

23ES 

23 

4240 

INX 

H 

28E7 

7E 

42S0 

MOV 

A,M 

* GET  COL  X+l  CODE 

28E8 

FE 

04 

4260 

CPI 

CTERM 

28EA 

CA 

DO 

2A 

4270 

JZ 

ENOR3 

28ED 

09 

4280 

DAD 

B 

28EE 

09 

4290 

DAD 

B 

28EF 

7E 

4300 

MOV 

A.M 

• GET  COL  X+l  FEATB 

28F0 

EE 

20 

4310 

XRI 

PLOS 

23F  2 

E6 

60 

4320 

AM 

PLOS+VOICE 

28F4 

C2 

FC 

28 

4 330 

JNZ 

R3D 

* NOT  AN  UNVOICED  PLOSIVE 

28F7 

IE 

26 

4 340 

MVI 

E,  2611 

♦ OK,  MULTIPLY  BY  0.6  (SHIFTED) 

28F9 

C 3 

27 

29 

43S0 

JMP 

R3CDE 

28FC 

4160 

• 

23FO 

4370 

• DUR*1.2S  <-  /VOW’EL/FRIC  VOICE 

28FC 

4 380 

* 

28FC 

7E 

4 390 

R3D  MOV 

A#M 

• GET  COL  X+l  FEATB  AGAIN 

28FD 

2F 

4400 

CMA 

28FE 

E6 

48 

4410 

AN  I 

FRIC+VOICE 

2900 

C2 

08 

29 

4420 

JNZ 

R3E 

* NOT  A VOICED  FRICATIVE 

2903 

IE 

SO 

4 130 

MVI 

£,S0H 

• SET  MULTIPLIER  TO  1.2S  (+64) 

290S 

C 3 

27 

29 

4440 

JMP 

R3CCE 

2908 

44S0 

* 

2908 

4 460 

• DUR*0.S  <-  /VOWEL/RX 

OR  LX, CONS 

2908 

4470 

* 

2908 

2A 

00 

3S 

4480 

R3E  LHLD 

MATPTR 

290B 

23 

4490 

INX 

H 

290C 

7E 

4SOO 

MOV 

A.M 

• GET  COL  X+l  CODE 

290D 

FE 

18 

4SiO 

CPI 

CRX 

290F 

CA 

17 

29 

4S20 

JZ 

R3E2 

2912 

FE 

19 

4S30 

CPI 

CLX 

2914 

C2 

DD 

2A 

4S40 

JNZ 

ENDR3 

* MO  GOOD,  ENO  GROUP  3 

2917 

23 

4 SSO 

R3E2  INX 

H 

2918 

7E 

4S60 

MOV 

A.M 

•GET  COL  X+2  CODE 

108 
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ADDR  el  B2  93  E 

LINE  LABE!, 

OPCD 

OPERAND 

2919  FE  04 

4970 

CPI 

CTERM 

291B  CA  DO  2A 

4980 

JZ 

ENOR3 

• X>1  IS  LAST  COL 

291E  09 

4990 

DAD 

B 

2 9 IF  7E 

4600 

MOV 

A,M 

» GET  COL  X+2  FEATA 

2920  EG  40 

4610 

AN  I 

CONS 

2922  CA  DO  2A 

4620 

JZ 

ENDR3 

* NOT  A CONSONANT 

2929  IE  20 

4610 

MVI 

E,20H 

• SET  MULTIPLIER  TO  0.9  (*64) 

2927  2A  00  19 

4640  R1COE 

LHLD 

MATPTR 

292A  09 

4690 

DAO 

B 

292B  09 

4660 

DAD 

B 

292C  09 

4670 

CAD 

8 

292D  46 

4660 

MOV 

B,M 

• GET  COL  X DURATION 

292E  CD  24  20 

4690 

CALL 

MUL 

• MULTIPLY  IT  BY  (E) 

2971  EB 

4730 

XCHG 

2932  29 

4710 

DAD 

H 

2933  29 

4720 

DAD 

H 

* MOVE  THE  BIN  POINT 

2914  EC 

4730 

XCHG 

29  39  72 

4740 

MOV 

M.D 

* 6 SET  NEW  DURATION 

2936  C3  DO  2A 

4790 

JMP 

ENDR1 

• GOTO  END  OF  CROUP 

29  39 

4760  • 

2939 

4770  • DUR-90 

MSEC  < 

- S/(W  OR  R OR  L)  STRESS. LT.O//VOWEEL 

2939 

4780  » 

2919  2A  00  19 

4790  RIF 

LHLD 

MATPTR 

29  1C  7E 

4800 

MOV 

A , M 

* GET  COL  X CODE 

29 70  FE  22 

4810 

CPI 

CW 

293F  CA  4C  29 

4820 

JZ 

R3F2 

2942  FE  20 

4830 

CPI 

CR 

2944  CA  4C  29 

4340 

JZ 

RIF  2 

2947  FE  21 

4890 

CPI 

CL 

2949  C2  SO  29 

4860 

JNZ 

R3H 

* NOT  W OR  R OR  L 

294C  C9 

4970  RIF 2 

DAD 

B 

294D  09 

4830 

DAD 

B 

294E  09 

4890 

DAD 

B 

294F  7E 

4900 

MOV 

A ,M 

• GET  COL  X STRESS 

2990  B7 

4910 

ORA 

A 

2991  F2  AO  29 

4923 

JP 

R 31 

• STRESS. CE.O 

2994  2A  00  19 

4910 

LHLD 

MATPTR 

2997  23 

4940 

INX 

H 

2999  7E 

4990 

MOV 

A,M 

• GET  COL  X+l  CODE 

2999  FE  04 

4960 

CPI 

CTERM 

2993  rK  jo  j* 

4970 

JZ 

R3H 

• K.R,  OR  L IS  IN  LAST  COL 

2 99E  09 

4937 

DAD 

B 

299F  7E 

4)97 

MOV 

A.M 

• GET  COL  XFl  FEATA 

2963  li  30 

970  7 

AN  I 

VOWEL 

2*42  CA  40  29 

9010 

JZ 

R3H 

• NOT  A VOWEL 

2949  2A  ;0  39 

9)20 

LHLD 

MATPTR 

2 96a  23 

9010 

OCX 

H 

2 96  9 7e 

904  7 

MCV 

A.M 

• GET  COL  X-l  CODE 

2 96A  FE  04 

9090 

CPI 

CTERM 

296C  '■»  30  29 

9060 

JZ 

R3H 

• W,  R.  OR  L IS  IN  1ST  CCL 

296F  FE  32 

9070 

CPI 

CS 

2971  09 

9030 

DAD 

B 

2972  09 

909  3 

DAD 

B 

• MOVE  HL  TO  COL  X-l  FEATE 

2973  C2  7E  29 

9100 

JNZ 

R3G 

• NO  S CN  COL  X-l 

2976  21 

9110 

INX 

H 

2977  09 

9120 

DAO 

B 

2976  79 

9130 

DAD 

B 

109 


PACE  10 


ADDR 

01 

B2 

B3  E 

LINE 

LABEL 

OPCD 

OPERAND 

2979 

36 

24 

9140 

MVI 

M,  36 

• SET  DURATION  TO  90  MSEC 

297B 

C9 

8D 

29 

9190 

JMP 

R3H 

297E 

9160 

• 

297E 

9170 

• DUR+20 

MSEC  <-  PLOS  -VOICE/ (K  OB  F OR  0) 

297E 

9180 

• 

STRESS. LT.O/VOWEL 

297E 

9190 

• 

297E 

7E 

9209 

R3G 

MOV 

A,M 

• GET  COL  X-l  FEATB 

297F 

EE 

20 

9210 

XR1 

PLOS 

2981 

E6 

60 

9220 

AN  I 

PLOS+VOICE 

2983 

C2 

80 

29 

92)0 

JNZ 

R 3H 

• NOT  AN  UNVOICED  PLOSIVE 

2986 

23 

9240 

INX 

H 

2987 

<39 

9290 

DAO 

B 

2938 

09 

9260 

DAC 

B 

2989 

7E 

9270 

MOV 

A,M 

• GET  COL  X STRESS 

298A 

C6 

o 

CO 

9280 

AO  I 

8 

• ADD  20  MSEC 

298C 

77 

9290 

MOV 

M,A 

29HD 

9)00 

* 

2980 

9)10 

* DUR*0. 

8 <-  /CONS  STRESS. LT.0/ 

2980 

9320 

* 

298D 

2A 

00 

39 

9330 

R3H 

LHLD 

MATPTR 

2990 

09 

9340 

DAD 

B 

2991 

09 

9390 

DAD 

B 

2992 

7E 

9360 

MOV 

A ,M 

• GET  COL  X FEATB 

2993 

E6 

40 

9370 

AN  I 

CONS 

2999 

ca 

DO 

2A 

9380 

JZ 

ENDR3 

• NOT  A CONS,  END  OF  GROUP 

2998 

09 

9390 

DAD 

B 

2999 

’C 

9400 

MOV 

A,M 

* GET  COL  X STRESS 

299A 

87 

9410 

ORA 

A 

299B 

F2 

AO 

29 

9420 

JP 

R3I 

• STRESS  IS  NOT  NEGATIVE 

299E 

09 

9430 

DAD 

B 

299F 

46 

9440 

MCV 

B,,M 

• GET  COL  X DURATION 

29A0 

IE 

33 

9490 

MVI 

E,33N 

• MULTIPLY  BY  0.8 

29A2 

CD 

24 

20 

9460 

CALL 

MUL 

29AS 

EB 

9470 

XCHC 

29A6 

29 

9480 

DAD 

H 

• SHIFT  IT  OVER 

29A7 

29 

9490 

DAD 

H 

29A8 

EB 

9900 

XCHC 

29A9 

72 

9910 

MCV 

M.D 

* SET  NEW  DUR 

29AA 

Ci 

9F 

00 

9920 

LX  I 

B.MATLEK 

2 JAD 

9930 

• 

29A0 

9940 

• DUR-70 

,60  MSEC  <•  /T 

STRESS. GE.O.SH  STRESS. GE.O/ 

29AO 

9990 

* 

29AO 

2A 

00 

39 

9960 

R3I 

LH  00 

MATPTR 

2990 

94 

9970 

NOV 

O.H 

29B 1 

90 

9980 

MOV 

E.L 

2982 

13 

9990 

INX 

0 

299) 

7E 

9600 

MOV 

A.M 

• GET  COL  X CODE 

29B4 

FE 

28 

9610 

CPI 

CT 

296  6 

C2 

00 

29 

9620 

JNZ 

R3J 

• NOT  T,  TRY  RULE  )J 

2999 

1A 

96)0 

EDA  X 

D 

• GET  COL  X+l  CODE 

293A 

FE 

04 

9640 

CPI 

CTERM 

29BC 

CA 

78 

2A 

9690 

JZ 

R3N 

* T IS  IN  LAST  COL 

29BF 

FE 

n 

9660 

CFI 

CSH 

290 

C2 

78 

2A 

9670 

JNZ 

R3N 

• T BUT  NO  SH,  TRY  RULE  3N 

29C4 

09 

9680 

DAO 

B 

29 <79 

09 

9690 

DAO 

B 

29C6 

09 

9700 

DAO 

B 

110 


PACE  11 


ADDR 

31 

32 

33  E 

LINE 

LABEL 

OPCD 

OPERAND 

29C7 

7E 

8710 

NOV 

A,N 

• GET  COL  X STRESS 

29C8 

FE 

01 

8720 

CPI 

1 

29CA 

FA 

06 

2A 

8730 

JH 

R3K 

• T UNSTRESSED,  TRY  RULE  3K 

29CO 

23 

8740 

INX 

H 

29CE 

7E 

8780 

NOV 

A,M 

• GET  COL  X+l  STRESS 

29CF 

FE 

01 

8760 

CPI 

1 

29D1 

FA 

78 

2A 

8770 

JH 

R3N 

• SH  UNSTRESSED,  TRY  RULE  3N 

2904 

09 

8780 

DAO 

B 

2908 

36 

18 

8790 

MVI 

M,  24 

• SET  COL  X+l  DUR  TO  60  MSEC 

29D7 

2B 

8800 

DC  X 

H 

2908 

36 

1C 

8810 

MVI 

M,  28 

* SEL  COL  X DUR  TO  70  MSEC 

29DA 

C3 

78 

2A 

8820 

JHP 

R3N 

2900 

8830 

* 

2900 

8840 

• DOR-70, 

80  NSEC  <•  /D, 

STRESS. GT, 0, ZH  STRESS. GT.O/ 

29DD 

8880 

* 

29DD 

FE 

2C 

8860 

R3J 

CPI 

CD 

29DP 

C2 

26 

2A 

8870 

JN2 

R3M 

• NOT  T OR  D,  TRY  RULE  3M 

29E2 

1A 

8980 

LDAX 

D 

29E3 

FE 

04 

8890 

CPI 

CTERM 

29E8 

CA 

78 

2A 

8900 

JZ 

R3N 

* D IS  IN  LAST  COL 

29E8 

FE 

37 

8910 

CPI 

CZH 

29EA 

C2 

78 

2A 

8920 

JNZ 

R3N 

+ D BUT  NO  ZH,  TRY  RULE  IN 

29ED 

09 

8930 

DAD 

B 

29EE 

09 

8940 

DAD 

B 

29EF 

09 

8980 

DAD 

B 

29FO 

7E 

8960 

MOV 

A , M 

• GET  COL  X STRESS 

29F1 

FE 

01 

8970 

CPI 

1 

29F  3 

FA 

16 

2A 

8980 

JM 

R3L 

* D UNSTRESSED,  TRY  RULE  R3L 

29F6 

23 

8990 

INX 

H 

29F7 

7E 

6000 

MOV 

A,M 

• GET  COL  X+l  STRESS 

29F8 

FE 

01 

6010 

CPI 

1 

29FA 

FA 

78 

2A 

6020 

JM 

R3N 

* ZH  UNSTRESSED,  TRY  RULE  IN 

29FD 

09 

6030 

DAO 

B 

29FE 

36 

14 

6040 

MVI 

H,  20 

• SET  X+l  DUR  TO  80  MSEC 

2A00 

2B 

6080 

DC  X 

H 

2A01 

36 

1C 

6060 

MVI 

M,  28 

• SET  X DUR  TO  70  MSEC 

2A03 

C3 

78 

2A 

6070 

JMP 

R3N 

2A06 

6080 

* 

2A06 

6090 

• tXJR- 60, 

40  MSEC  <•  /T 

STRESS. EO.O.SH  STRESS. EQ.O/ 

2A06 

6100 

• 

2A06 

23 

6110 

R3R 

INX 

H 

2A07 

7E 

6120 

MOV 

A,M 

• GET  COL  X+l  STRESS 

2A08 

TE 

01 

6130 

CPI 

1 

2A0A 

F2 

78 

2A 

6140 

JP 

R3N 

* SH  IS  STRESSED,  TRY  RULE  3N 

2AOO 

09 

6180 

DAO 

B 

2A0E 

36' 

10 

6160 

MVI 

M,  16 

i SET  COL  X+l  DUR  TO  40  MSEC 

2A10 

2B 

6170 

DC  X 

H 

2AU 

36 

18 

6180 

MVI 

M , 24 

• SET  COL  X DUR  TO  60  MSEC 

2A13 

C3 

78 

2A 

6190 

JMP 

R3N 

2A16 

6200 

* 

2A16 

6210 

* DUR-40, 

30  MSEC  <-  /D 

STRESS. EC. O.ZH  STRESS. EO.O/ 

2A16 

6220 

• 

2A16 

23 

6230 

R3L 

INX 

H 

2A17 

7E 

6240 

MOV 

A,M 

• GET  COL  X+l  STRESS 

2A18 

FE 

01 

6280 

CPI 

1 

2A1A 

FA 

78 

2A 

6260 

JM 

R3N 

2A10 

09 

6270 

DAO 

3 

111 


PACE  12 


ADDR 

SI 

82 

S3  E 

LINE  LABEL 

OPCD 

OPERAND 

2A1E 

36 

OC 

6280 

NVI 

N,  12 

# 

SET  COL  X*1  DOR  TO  30  NSEC 

2A20 

2B 

6290 

OCX 

R 

2A21 

36 

10 

6300 

MVI 

N,16 

• 

SET  COL  X DOR  TO  40  NSEC 

2A23 

C3 

78 

2A 

6310 

JNP 

R3N 

2A26 

6320  * 

2A26 

6330  • DOR-30 

,30  NSEC  <•  /IN, 

P 

OR  B)  OR  (N,T  OR  D)  OR 

2A26 

6340  « 

(NX, X OR  XX  OR  C OR  GX)/ 

2A26 

6 ISO  • 

2A26 

FE 

24 

6360  R3M 

CPI 

CN 

TEST  COL  X CODE 

2A2B 

CA 

38 

2A 

6370 

JZ 

R3N2 

IT’S  H 

2 A 23 

FE 

2S 

6380 

CPI 

CN 

2 A 2D 

CA 

46 

2A 

6390 

JZ 

R3H3 

IT'S  N 

2A  30 

FE 

26 

6400 

CPI 

CNX 

2A  32 

CA 

S4 

2A 

6410 

JZ 

R3N4 

IT'S  NX 

2A3S 

C3 

78 

2A 

6420 

JNP 

R3N 

2A38 

1A 

6430  R3H2 

LOAX 

D 

2A39 

FE 

27 

6440 

CPI 

CP 

2 A 38 

CA 

6C 

2A 

64  SO 

JZ 

R3NS 

IT'S  K,P 

2A3E 

FE 

28 

6460 

CPI 

CB 

• 

2A4C, 

CA 

6C 

2A 

6470 

JZ 

R3HS 

IT'S  N,B 

2A4  3 

C3 

DD 

2A 

6480 

JNP 

ENOR3 

IT'S  SOMETHING  ELSE 

2A46 

1A 

6490  R3M3 

LDAX 

D 

2A47 

FE 

28 

6S00 

CPI 

CT 

2A49 

CA 

6C 

2A 

6S10 

JZ 

R3HS 

IT'S  N,T 

2A4C 

FE 

2C 

6S20 

CPI 

CD 

?A4E 

CA 

6C 

2A 

6S30 

JZ 

R3MS 

IT'S  N, D 

2AS1 

C3 

DD 

2A 

6S40 

JMP 

ENDR3 

IT'S  SOMETHING  ELSE 

2AS4 

1A 

6SS0  R3M4 

LDAX 

D 

2ASS 

FE 

29 

6S60 

CPI 

CK 

# 

2Af7 

CA 

6C 

2A 

6S70 

JZ 

R3NS 

IT'S  NX, X 

2 ASA 

FE 

2A 

6S80 

CPI 

CXX 

2ASC 

CA 

6C 

2A 

6S90 

JZ 

R3NS 

IT'S  NX, XX 

2 ASF 

FE 

2D 

6600 

CPI 

CG 

2A61 

CA 

6C 

2A 

6610 

JZ 

R3NS 

IT'S  NX,G 

2A64 

FE 

2E 

6620 

CPI 

CGX 

2A66 

CA 

6C 

2A 

6630 

JZ 

R3NS 

IT'S  NX.GX 

2A69 

C 3 

DD 

2A 

6640 

JNP 

ENDR3 

IT'S  SOMETHING  ELSE 

2A6C 

09 

66S0  R3MS 

DAD 

B 

2A6D 

09 

6660 

DAD 

B 

2A6E 

09 

6670 

DAD 

B 

2A6F 

09 

6680 

DAD 

B 

2A70 

36 

OC 

6690 

MVI 

N,  12 

SET  COL  X OUR  TO  30  NSEC 

2A72 

23 

6700 

INX 

H 

2A73 

36 

OC 

6710 

NVI 

N,  12 

SET  COL  X+l  DDR  TO  30  NSEC 

2A7S 

C3 

DD 

2A 

6720 

JNP 

ENDR3 

2A78 

6730  • 

' 

2A78 

6740  * DUR*0. 

S <•  PLOS, OPTIONAL  HDBOUND/PLOS/ 

2A78 

67S0  • 

2A78 

2A 

00 

3S 

6760  R3N 

LHLD 

NATPTR 

2A7B 

09 

6770 

DAD 

B 

2A7C 

09 

6780 

DAD 

B 

2A7D 

7E 

6790 

NOV 

A,N 

• 

GET  COL  X FEATB 

2A7E 

E6 

20 

6800 

ANI 

PLOS 

2A80 

CA 

DO 

2A 

6810 

JZ 

ENDR3 

• 

NOT  A PLOSIVE,  END  OF  GROUP 

2A83 

2A 

00 

IS 

6820 

LHLD 

NATPTR 

2A8« 

2B 

6830 

DC  X 

H 

2AB7 

71 

6840 

NOV 

A.N 

• 

GET  COL  X-l  CODE 

I ' 
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ADDR 

81 

D2 

B3  E 

LINE  LABEL 

OPCD 

OPERAND 

2A8S 

FE 

04 

EBSO 

CPI 

CTERH 

2A8A 

CA 

At 

2A 

6840 

JX 

R3N3 

• X IS  1ST  COL.  TRY  PLOS  APTER 

2 ABO 

S4 

6870 

HOV 

D.H 

2A8E 

SO 

6300 

MOV 

E,  L 

2A8F 

09 

6890 

DAD 

B 

2A90 

7E 

6900 

HOV 

A,H 

• GET  COL  X-l  fEATA 

2A91 

Et 

04 

6910 

ANI 

WDBND 

2A93 

CA 

9F 

2A 

6920 

JX 

R3N2 

• NOT  A WDBND,  TEST  FOR  PLOSIVE 

2A96 

EB 

69)0 

XCHC 

2A9? 

2B 

6940 

OCX 

H 

2A96 

7E 

69S0 

HOV 

A,H 

• GET  COL  X-2  CODE 

2A99 

FE 

04 

6960 

CPI 

CTERH 

2 A 98 

CA 

At 

2A 

6970 

JX 

R3N3 

2A9E 

09 

6980 

DAD 

B 

2A9F 

03 

6990  RON 2 

DAD 

B 

• nOVE  TO  FEATB 

2AAC 

7E 

7000 

HOV 

A.H 

2AA1 

Et 

27 

7010 

ANI 

PLOS 

2AA) 

C2 

C9 

2A 

7020 

JNX 

R3NS 

* OK,  DO  RULE  3N 

2AA6 

70  30  • 

2AA8 

7040  • DOR*0.  S 

<-  /PLOS/OPTIONAL  WDOOUND, PLOS 

2AA6 

70S0  • 

2AA6 

2A 

00 

JS 

7760  RJN) 

LHLD 

HATPTR 

2AA9 

23 

7070 

INX 

H 

2 AAA 

7E 

7050 

HOV 

A.H 

• GET  COL  X+l  CODE 

2AA8 

FE 

04 

7090 

CPI 

CTERH 

2AAO 

CA 

DO 

2A 

7100 

JX 

EIIDR3 

• X IS  LAST  COL,  END  CROUP 

2AB0 

S4 

7110 

HOV 

D,H 

2AB1 

SO 

7120 

HOV 

E.L 

2AB2 

09 

7130 

DAD 

B 

2A3  3 

7E 

714  0 

HOV 

A.H 

• GET  COL  X*1  FEATA 

2AF4 

Et 

04 

71S0 

ANI 

WDBND 

2AE6 

CA 

C2 

2A 

7160 

JX 

R3N4 

• NOT  A WDBND.  TEST  FOR  PLOS 

2AB9 

EB 

7170 

XCHG 

2 ABA 

23 

7183 

INX 

H 

2ABB 

7E 

7190 

HOV 

A.H 

* GET  COL  X*2  CODE 

2ABC 

FE 

04 

7200 

CPI 

CTERH 

2ABE 

CA 

00 

2A 

7210 

JX 

EHDR3 

2AC1 

09 

7220 

DAD 

B 

2ac2 

09 

72)0  R3N4 

DAD 

B 

• HOVE  TO  FEATB 

2AC) 

7E 

7240 

HOV 

A.H 

2AC4 

Et 

20 

7 2 SO 

ANI 

PLOS 

2 Art 

CA 

DO 

2A 

7260 

JX 

ENDR3 

* NO,  END  GROUP  ) 

2 AC  9 

2A 

00 

3S 

7270  R3NS 

LHLD 

HATPTR 

2ACC 

09 

7280 

DAD 

D 

2 ACC 

09 

7290 

DAD 

B 

2ACE 

09 

7)00 

DAD 

D 

2ACF 

09 

7)10 

DAD 

B 

2AD0 

cs 

7320 

POSH 

R 

2AD1 

4 6 

7)30 

HOV 

B.H 

• CET  COL  X DURATION 

2A02 

IE 

20 

7)40 

HVI 

E.20H 

• HULTIPLY  BY  O.S 

2AD4 

CD 

24 

20 

73S0 

CALL 

HUL 

2AD7 

EB 

7)60 

XCHG 

2AOB 

29 

7370 

DAD 

H 

2AD9 

29 

7180 

DAO 

H 

2AOA 

EB 

7)90 

XCHG 

2AC8 

72 

7400 

HOV 

H.D 

• STORE  NEW  OURATION 

2ACC 

Cl 

7410 

POP 

B 
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ADDR 

B1 

B2 

83  E 

LINE 

LABEL 

OPCD 

OPERAND 

2ADD 

7420 

• 

2A0D 

74  30 

• 

END 

OP 

RULE  GROUP  3 

2A00 

7440 

• 

2AD0 

2A 

00 

34 

7440 

ENDR3 

LHLD 

MATPTR 

2AE0 

23 

746) 

INX 

H 

2A11 

22 

00 

34 

7470 

SHLO 

MATPTR 

2AE4 

EB 

7480 

XCHG 

2AE4 

2A 

02 

34 

7490 

‘LHLD 

NEC END 

2AEH 

19 

7400 

DAO 

D 

2AE9 

EB 

7410 

XCHG 

2AEA 

02 

30 

28 

7420 

JNC 

R3LOOP 

• LOOP  AGAIN  IF  NOT  DONE 

2AED 

7430 

• 

2AED 

7440 

* 

READJUST  DURATIONS  FROM  2.4  MSEC  TO  10  MSEC 

2 A EC 

7440 

• 

(SO  DUR  UNIT 

• FRAME 

TINE) 

2AE0 

7460 

• 

2AED 

11 

FB 

CA 

7410 

LXI 

0. -MATRIX-1 

2AF0 

39 

7480 

DAD 

0 

2AF 1 

40 

7490 

MOV 

C.L 

2AF2 

21 

89 

36 

7600 

LXI 

H,  DUR 

2AFS 

23 

7610 

AO  JOUR 

INX 

H 

2AF6 

7E 

7620 

MOV 

A,M 

2AF7 

B7 

7630 

OKA 

A 

* CLEAR  CARAy,  01 V BY 

SHIFTING 

2AF8 

IF 

7640 

RAR 

2AF9 

B7 

7640 

ORA 

A 

2AFA 

IF 

7660 

RAR 

2AFB 

CE 

09 

7670 

AC  I 

0 

• ROUND  UP  1 IF  CARRY 

SET 

2AFD 

77 

7680 

MOV 

M,  A 

2af; 

OD 

7690 

OCR 

C 

2AFF 

C2 

F4 

2A 

7700 

JNX 

ADJDUR 

2B02 

C9 

7710 

RET 

2B03 

7720 

• 

• 

2803 

7730 

• 

END 

OF 

SECT  3 
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ADDR  B1  B2 

BO  E LINE 

LABEL 

OPCD 

OPERAND 

2000 

0010 

• GENFO 

2000 

0020 

• 

2000 

OOOO 

* SECTION  4 OF 

THE  CSR1  SYNTHESIS  BY  RULE 

2000 

0040 

• 

2000 

OOSO 

• LLOYD 

RICE, 

COMPUTALKER  CONSULTANTS 

2000 

0060 

• VERSION  1.11 

RAAY  30,  1977 

2000 

0070 

• 

2000 

0080 

• 

2 000 

0090 

• 

2000 

0100 

• COMMON 

JUMP  ADDRESS  TABLE 

2000 

0110 

« 

2000 

0120 

COM JMP 

EOU 

$ . 

2000 

0130 

• 

2000 

0140 

CSR1 

DS 

0 

2000 

01S0 

PLAY 

DS 

0 

2006 

0160 

BUFADH 

DS 

2 

2006 

0170 

BUFEND 

DS 

2 

20  OA 

0180 

PVTAB 

DS 

2 

200C 

0190 

MATPAK 

DS 

3 

200F 

0200 

MATERR 

DS 

3 

2012 

0210 

RULES 

DS 

0 

2019 

0220 

SETDUR 

DS 

0 

2018 

0200 

RULES  0 

DS 

0 

201B  CO  10 

2B  0240 

JMP 

GENFO 

201E  Cl  09 

2D  O2S0 

JMP 

CLRBUF 

2021 

0260 

GENPRN 

DS 

1 

2024 

0270 

MUL 

DS 

1 

2027 

0280 

DIV 

DS 

1 

202A 

0290 

DUMMY 

DS 

16 

200a 

0300 

* 

20  OA 

0310 

# 

200A 

0320 

* 

20  OA 

0030 

» COMRAM 

OR 1 GEN 

DEFINITION 

200a 

0340 

• 

20  OA 

0 3S0 

ORG 

COMJMP+1900H 

3900 

0360 

COMRAM 

EOU 

$ 

3 900 

0370 

• 

0000 

0380 

* CSR1  SYSTEM  RAM  SPACE  DEFINITION 

OSOO 

0390 

« 

OSOO 

0400 

MATPTR 

DS 

2 

ISO  2 

0410 

HEGEMD 

OS 

2 

0SO4 

0420 

MATRIX 

ECU 

$ 

1S04 

3400 

MATLEN 

EOU 

99 

0SO4 

0440 

PHCODE 

DS 

MATLEN 

1S61 

04S0 

FEATA 

DS 

MATLEN 

0SC2 

0460 

FEATB 

DS 

MATLEN 

0621 

0470 

STRES- 

OS 

MATLEN 

0680 

0480 

DUR 

DS 

MATLEN 

06DF 

0490 

MATFMD 

ECU 

$ 

0 6DF 

OSOO 

3UFPTR 

DS 

2 

36E1 

0S10 

• 

06E1 

0S20 

• GENFO 

(LOCAL) 

RAM  WORKSPACE 

16E1 

OSOO 

• 

16E1 

0S40 

STRSX 

DS 

1 

06E2 

OSSO 

DURX 

DS 

1 

06E0 

0S60 

DURX4 

DS 

1 

06E4 

0S70 

HfO 

os 

2 
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ADDR 

81 

82 

81  E 

LIME 

LABEL 

OPTO 

OPERAND 

28  30 

EB 

1180 

XCHG 

2B3E 

21 

09 

00 

1160 

LX1 

H.9 

2B41 

CO 

27 

20 

1170 

CALL 

D1V 

• 

DIVIDE  AVAILABLE  SPACE  BY  9 

2841 

84 

1180 

MOV 

O.H 

• 

IGNORE  REMAINDER 

2848 

80 

1190 

MOV 

E.L 

• 

MOVE  MAX  FRAME  COUNT  TO  OE 

2846 

29 

1200 

DAD 

H 

2841 

29 

1210 

DAO 

H 

2848 

29 

1220 

DAD 

H 

2849 

19 

1210 

DAO 

D 

• 

(HL1  • 9*FRAME  COUNT 

28  4A 

OB 

1240 

ocx 

P 

• 

(BO)  • -(PUFADRI-2 

2848 

79 

1280 

MOV 

A.C 

28  4C 

98 

1 2oO 

SUB 

28  40 

6r 

1270 

MOV 

L.A 

2B4E 

78 

1280 

MOV 

A,F 

!B4F 

9C 

1290 

SPB 

II 

2BS0 

67 

1 100 

MOV 

It, A 

2DM 

22 

FF 

16 

1 110 

SHLD 

NEC  A NO 

• 

-(BUFADH)-2-9»NAX  THAME  Oit 

2QS4 

21 

08 

18 

1 120 

LXI 

H.MATRIX41 

2887 

22 

00 

18 

1110 

SHLD 

MATPTR 

• 

POINT  TO  MAT  COL  2 (AFTEH  l| 

2D8A 

1140 

• 

28  8A 

1180 

• • 

2B8A 

1 160 

• 

20  8A 

1 170 

• 

EAHI  PASS  THRO  FOLOOP 

GENERATES  FO  DATA  INTO 

28  8A 

1180 

• 

FRAMES 

I+l  THRU  1 ♦DURATION  X.  CORRESPONDING  TO 

2B8A 

1 190 

• 

THE  PHONEME  IN  MATRIX 

COLUMN  X.  BUFPTR  ALWAYS 

2BSA 

1400 

• 

POINTS 

TO  F0(I)  AT  THE  BEG  1 NN INC  OF  THE  LOOP. 

28  8A 

1410 

• 

2B8A 

00 

1420 

ro 

LOOP 

NOP 

• 

• 

BREAKPOINT  LOC 

2B  88 

2A 

00 

38 

14  10 

LHLD 

MATPTR 

2B8E 

01 

8F 

00 

1440 

LXI 

B.MATLEN 

2861 

8E 

1480 

MOV 

E.M 

• 

GET  COL  X CODE  IN  E 

2862 

09 

1460 

DAD 

D 

2863 

86 

1470 

MOV 

D.M 

* 

GIT  COL  X FEATA  IN  D 

2064 

09 

1480 

DAD 

0 

2868 

7E 

1490 

MOV 

A,N 

• 

GET  O0L  X FLATB  IN  A 

2866 

09 

1800 

DAD 

0 

• 

MOVE  PTR  TO  STRESS  X 

2867 

E6 

40 

1810 

ANl 

VOICE 

2869 

C 2 

22 

20 

1820 

JN2 

VOICED 

* 

IT'S  A VOICED  PHONEME 

2B6C 

09 

1810 

DAD 

B 

2860 

7E 

1840 

MOV 

A,M 

2B6E 

12 

E 2 

16 

1880 

STA 

DURX 

• 

SAVE  DURATION  X 

2B71 

78 

I860 

MOV 

A,E 

2B72 

IE 

08 

1870 

MVI 

E.-40 

• 

TERMINAL  DROP  IF  *.* 

2B  74 

rr 

01 

1880 

CPI 

CPER 

2876 

CA 

80 

28 

1890 

JZ 

ENDS 

2879 

IE 

28 

1600 

MVI 

E,  40 

• 

TERMINAL  RISE  IF  *7* 

2878 

EE 

01 

1610 

CPI 

CCUFST 

2B7D 

C 2 

1 1 

2C 

1620 

JNZ 

NOFO 

2080 

1610 

• 

2080 

1640 

• 

COMPUTE  PHRASE -TERM INAL 

FO  CIIANCF 

2B80 

lbSO 

• 

ENTER 

KITH  FO 

OFFSET 

IN 

E 

2860 

1660 

• 

28  80 

78 

1670 

END? 

MOV 

A.E 

2881 

72 

E6 

36 

1680 

STA 

FTERM 

• 

SAVE  FO  OHANCF  VALUE 

2884 

AF 

1690 

XRA 

A 

2088 

01 

F7 

rr 

1700 

LXI 

n.-9 

2088 

2A 

OF 

16 

1710 

LHLD 

BUFPTR 

• 

SCAN  BACK  FOR  LAST  NON  0 FO 
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PACE  04 


ADOR 

01 

02 

03  E 

LINE  LABEL 

OPCD 

OPERAND 

2B8B 

06 

1720  ENDS1 

OKA 

M 

2 BBC 

C 2 

9C 

2B 

1710 

JNZ 

RAMP 

* FOUND  A NON  0 VALUE 

2B8F 

09 

1740 

DAD 

B 

2B90 

i:b 

1780 

XCHG 

2091 

2A 

EB 

16 

1760 

LHLD 

NEGBUF 

2B94 

19 

1770 

DAD 

D 

2B98 

02 

1) 

2 C 

1780 

JNC 

noro 

• HIT  FRONT  OF  BUFFER,  EXIT 

2098 

EB 

1790 

XCHG 

2099 

Cl 

8B 

2B 

1800 

JMP 

ENDSl 

2B9C 

1A 

E6 

16 

1810  RAMP 

LDA 

FTERM 

• NON  0 FO  ♦ CHANCE 

2B9K 

86 

1820 

ADD 

M 

2BA0 

FE 

OF 

1830 

CPI 

18 

2BA2 

02 

AA 

2B 

1840 

JNC 

RAM  Pi 

2BA8 

IE 

OF 

1880 

MVl 

A,  18 

• FINAL  FO  < 18,  MAKE  IT  18 

20A7 

Cl 

Bl 

2B 

I860 

JMP 

RAMF2 

20AA 

FE 

70 

1870  RAKP1 

CPI 

128 

2BAC 

DA 

Bl 

2B 

1880 

JC 

RAM  P2 

2RAF 

IE 

70 

1890 

HVl 

A, 128 

♦ FINAL  FO  > 128,  MAKE  IT  128 

2801 

96 

1900  KAMP2 

SUB 

M 

28L2 

12 

EB 

16 

1910 

STA 

FTERK 

• THE  REAL  FINAL  FO  OFFSET 

2BB8 

EB 

1920 

XCHG 

* 

• END-OF-RAMP  AOOR  TO  DE 

2B06 

06 

ID 

1910 

MVl 

0,29 

• TRY  TO  MAKE  A 290  MSEC  RAMP 

2BB8 

09 

1940  RAMP 3 

DCH 

B 

2809 

78 

1980 

MOV 

A.B 

• TENTATIVE  RAMP  LENGTH 

200A 

87 

1960 

ADD 

A 

2BBD 

87 

1970 

ADD 

A 

2BBC 

87 

1980 

ADD 

A 

2080 

80 

1990 

ADD 

B 

2B8E 

2F 

2000 

CMA 

2R3F 

3C 

2010 

INR 

A 

2BC0 

4F 

2020  * 

MOV 

C.A 

• -9»TRL  INTO  A AND  C 

20C1 

2A 

EO 

16 

2010 

LHLD 

NEC PS E 

2BC4 

19 

2040 

DAD 

D 

• AVAILABLE  SPACE  IN  HL 

2BC8 

88 

2060 

ADD 

L 

2BC6 

IE 

Fr 

2060 

HVI 

A.OFFH 

2BC8 

8C 

2070 

ADC 

II 

20C9 

02 

B8 

20 

2080 

JNC 

RAMP! 

• NO  ROOM,  SHORTEN  RAMP 

20CC 

69 

2090 

MOV 

L.C 

2BCD 

26 

Fr 

2100 

MVl 

H.OFFH 

2BCF 

19 

2110 

DAD 

0 

2800 

E8 

2120 

PUSH 

H 

• DEGIN-RAMP  ADOR,  SAVE  IT 

2801 

1A 

Ea 

16 

2110 

LDA 

FTF.RM 

2B04 

4F 

2140 

MOV 

C.A 

2BD8 

07 

2180 

ORA 

A 

2006 

F 2 

DO 

211 

7160 

JP 

S+8 

• OFFSET  IS  ♦ 

2009 

2F 

2170 

CMA 

2B0A 

K 

2180 

INR 

A 

• OFFSET  IS  -,  MAKE  IT  ♦ 

2000 

67 

2190 

MOV 

0,  A 

2BDC 

IE 

00 

2200 

MVl 

E.O 

• 286*OFFSET  INTO  OF. 

2BDE 

68 

2210 

MCV 

L.B 

2B0F 

26 

00 

2220 

MVl 

H.O 

• RAMP  FRAME  COUNT  IN  HL 

2BE1 

CO 

27 

20 

2210 

CALL 

UIV 

2BE4 

79 

2240 

MOV 

A.c 

2BE8 

07 

2260 

OKA 

A 

2BE6 

F 2 

ro 

2B 

2260 

JP 

RAMP4 

• OFFSET  IS  ♦,  OK 

2BE9 

7C 

22  to 

MOV 

A,  H 

• OFFSET  IS  -,  HAKE  DELTA  - 

2BEA 

2F 

2200 

CMA 
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AODR 

Bl 

B2 

B3  E 

LIME 

LABEL 

OPCD 

OPERAND 

2BEB 

67 

2290 

MOV 

H,A 

2BEC 

70 

2300 

MOV 

A,  L 

2BEO 

2F 

2310 

CMA 

2BEE 

6F 

2320 

MOV 

L,A 

2BEF 

23 

2330 

INX 

II 

2BF0 

22 

E7 

36 

2340 

RAMP4 

SELD 

DELTA 

* 

DELTA«2S6*OFFSET/RAMP  LENGTH 

2BF3 

11 

00 

00 

23S0 

LX1 

Df  0 

2BF6 

03 

FD 

2B 

2360 

JMP 

RAMPS+4 

2BF9 

ES 

2370 

RAMPS 

PUSH 

H 

* 

Save  buffer  pointer 

2BFA 

2A 

E7 

36 

2380 

LHLD 

DELTA 

2BFO 

19 

2390 

DAD 

D 

* 

DIF-DIF+DELTA 

2BFE 

E3 

2400 

XTHL 

* 

* 

DIF  TO  STACK 

2BFF 

EB 

2410 

XCHG 

• 

• 

BUFFER  PTR  TO  DE 

2C0C 

21 

09 

00 

2420 

LXI 

H,9 

2C03 

19 

2430 

DAD 

D 

* 

UPDATE  BUFFER  PTR 

2C04 

D1 

2440 

POP 

D 

* 

DIF  TO  DE 

2CCS 

7E 

24S0 

MOV 

A,  M 

* 

FC-OLDFO+D1F/2S6 

2C06 

B7 

2460 

ORA 

A 

2CC7 

OA 

00 

20 

2470 

JZ 

$*s 

• 

IT'  3,  DON'T  CHANGE  IT 

2CCA 

82 

24B0 

ADD 

D 

20  OB 

77 

2490 

MOV 

M , A 

2000 

OS 

2S00 

DCR 

B 

20  OD 

02 

F9 

2B 

2S10 

JNZ 

RAMPS 

2010 

03 

E7 

20 

2S20 

JMP 

ENDFO 

2013 

2S3C 

• 

2013 

2S40 

• UNVOICED  PHON 

, GENERATE 

ARC  TO  STRESS  2 LEVEL 

2013 

2SS0 

• 

2C13 

3-3 

E2 

36 

2S60 

KOFO 

LDA 

DURX 

2016 

4P 

2S70 

MOV 

C,A 

2017 

06 

OS 

2S80 

MVI 

B,S 

2019 

2A 

OF 

36 

2S90 

LHLO 

BUFPTR 

2010 

00 

12 

20 

2670 

CALL 

FPARAB 

• 

PARABOLA  PEAKS  AT  END  OF  PHON 

20  IF 

03 

E7 

20 

2610 

JMP 

ENDFO 

2022 

2620 

• 

20  22 

2630 

• GENERATE  FO  FCR  VOICED 

PHONS 

20  22 

2640 

• ON  I 

ENTRY:  (D) 

-FEATA  X 

* 

(B)-MATLEN 

20  22 

26S0 

* 

HL 

POINTS  TO  ! 

STRESS  X 

2022 

2660 

• 

20  22 

SE 

2670 

VOICED 

MOV 

E,M 

• 

GET  STRESS  X IN  E 

20  2 3 

29 

2683 

DAD 

B 

2024 

7E 

2693 

MOV 

A.K 

20  2S 

32 

E2 

36 

2700 

STA 

CURX 

• 

GET  DUR  X 6 SAVE  IT 

2026 

7A 

2710 

MOV 

A.D 

• 

GET  FEATA  X 

20  29 

E6 

87 

2720 

AN  I 

VOWEL 

20  20 

OA 

63 

20 

27  30 

JZ 

VNEXT 

* 

X NOT  A VOWEL,  TRY  Xftl 

20  2E 

7B 

2740 

MOV 

A/E 

• 

X IS  VOWEL,  SEE  IF  STRESSED 

20  2F 

B7 

27S0 

ORA 

A 

20  39 

CA 

63 

20 

2760 

JZ 

VNEXT 

• 

NO,  TRY  X+l 

2033 

32 

El 

36 

2770 

STA 

STRSX 

* 

SAVE  STRESS  VALUE 

20  36 

06 

00 

2780 

MVI 

B , 0 

2033 

3A 

E2 

16 

2790 

LDA 

DURX 

• 

GET  DURX  AGAIN 

20  3B 

B7 

2800 

VSTRS 

ORA 

A 

• 

DIVIDE  IT  BY  4 

20  JO 

IF 

2310 

RAR 

20  30 

B7 

2320 

ORA 

A 

2C3E 

IF 

2330 

RAR 

20  3P 

eo 

2840 

ADD 

B 

* 

ADD  EITHER  0 OR  DURX 

2C40 

32 

E3 

36 

28S0 

STA 

DURX4 

• 

EITHER  DURX/4  OR  DURX+OURY/4 

119 
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ADDR 

El 

B2 

B3  E 

LINE 

LABEL 

OPCD 

OPERAND 

2C43 

4F 

2360 

MOV 

C.A 

2044 

3A 

El 

36 

2870 

LDA 

STRSX 

• 

MOVE  STRESS  INTO  B 

2047 

47 

2880 

MOV 

B,A 

2C48 

2A 

DF 

36 

2890 

LHLD 

BUFPTR 

2048 

00 

12 

2D 

2900 

CALL 

FPARAB 

• 

COMPUTE  FRONT  OP  PARABOLA 

2C  4E 

00 

2910 

RNZ 

* 

* 

ERROR  RETURN 

2C4F 

3A 

E3 

36 

2920 

LDA 

DURX4 

2032 

47 

2930 

NOV 

B , A 

2CS3 

3A 

E2 

36 

2940 

LDA 

DURX 

2036 

90 

29S0 

SUB 

B 

2037 

4F 

2960 

MOV 

C,  A 

* 

FULL  OUR  - FRONT  OUR  INTO  C 

2038 

3A 

El 

36 

2970 

LDA 

STRSX 

20  SB 

47 

2980 

MOV 

B , A 

20  SO 

00 

7F 

2D 

2990 

CALL 

BPARAB 

• 

COMPUTE  BACK  OF  PARABOLA 

2CSF 

00 

3000 

RNZ 

• 

• 

ERROR  RETURN 

2060 

03 

E7 

20 

1010 

JMP 

ENDFO 

206  3 

3020 

» 

2063 

3030 

* CURRENT 

VOICED  PHON  IS  NOT  A STRESSED  VOWEL 

2063 

3040 

* IF  NEXT 

ONE  IS,  GENERATE  PARABOLA  ACROSS  BOTH 

2063 

30S0 

* 

2063 

2A 

OF 

36 

3060 

VNEXT 

LHLD 

BUFPTR 

• 

GET  LAST  FO  OF  PREV  PHON 

2066 

7E 

3070 

MOV 

A,  M 

2067 

B7 

3080 

ORA 

A 

2068 

02 

60 

20 

3090 

JNZ 

20  6B 

36 

4S 

3100 

MV1 

M , 69 

• 

LAST  FO  WAS  0,  MAKE  IT  69 

2CCD 

7A 

00 

3S 

3110 

LHLD 

MATPTR 

2070 

.3 

3120 

VNXT1 

I NX 

H 

2071 

S4 

3130 

MOV 

D,  H 

2072 

SO 

3140 

MOV 

E,L 

2073 

7E 

31S0 

MOV 

A , M 

• 

GET  NEXT  COL  CODE 

2074 

FE 

04 

3160 

cp  r 

CTERM 

2076 

CA 

A6 

20 

3170 

JZ 

DOWNDR 

• 

END  OF  MATRIX,  FINISH  X 

2079 

09 

3180 

DAD 

B 

20  7 A 

7S 

1190 

MOV 

A,M 

2073 

E6 

04 

3200 

AN  I 

WDBND 

2070 

CA 

84 

20 

3210 

JZ 

VNXT2 

* 

NOT  A WORD  BOUNDARY 

2080 

ED 

3220 

XCHG 

2081 

03 

70 

20 

3230 

JMP 

VNXTl 

• 

X+l  IS  WDBOUND,  BUMP  AGAIN 

20  84 

7E 

3240 

VNXT2 

MOV 

A , M 

• 

GET  COL  Y FEATA 

20  8 S 

E6 

80 

32S0 

ANI 

VOWEL 

2087 

CA 

A6 

20 

3260 

JZ 

DOWNDR 

* 

Y NOT  A VOWEL,  OOWNDRIFT  X 

20  8A 

09 

3270 

DAD 

B 

20  8B 

09 

3230 

DAD 

B 

2080 

7E 

3290 

MCV 

A,M 

• 

GET  COL  Y STRESS 

20  8D 

B7 

3300 

ORA 

A 

2C6E 

OA 

A 6 

20 

3310 

JZ 

DOWNDR 

• 

Y IS  VOWEL  BUT  NOT  STRESSED 

209i 

32 

El 

36 

' 3320 

STA 

STRSX 

2094 

09 

3 330 

DAD 

B 

20  9 S 

4E 

3340 

MOV 

C,M 

• 

GET  COL  Y DURATION 

2096 

3A 

E2 

36 

3 ISO 

LDA 

DURX 

2099 

47 

3360 

MOV 

B,A 

20  9 A 

81 

3370 

ADD 

C 

20  9B 

32 

E2 

36 

3330 

STA 

DURX 

• 

DURX-DUK  X + DUR  Y 

209E 

EB 

3390 

XCHG 

20  9F 

22 

00 

3S 

3400 

SHLD 

MATPTR 

* 

MOVE  MATPTR  UP  TO  COL  Y 

20  A 2 

79 

3410 

MOV 

A,C 

• 

GET  COL  Y DURATION 

2CA3 

03 

3B 

20 

3420 

JMP 

VSTRS 

120 
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ADDR 

B1 

B2 

B3  E 

LINE  LABEL 

OPCD 

OPERAND 

2CA6 

1430  • 

2CA6 

3440  * LET 

FO  DRIFT 

DOWNWARD 

TOWARD  43  (100  HZ) 

2CA« 

34SO  » 

2CA6 

2A 

00 

3S 

3460  DOWNDR 

LHLD 

MATPTR 

2CA9 

01 

7C 

01 

3470 

LXI 

B.MATLENM 

2CAC 

09 

3480 

DAD 

B 

2CAD 

4E 

3490 

MOV 

C,M 

* 

GET  DUR  X IN  C 

2CAE 

2A 

DP 

36 

3S00 

LHLD 

B UP PTR 

2CB1 

S6 

3S10 

MOV 

D#M 

• 

GET  PREVIOUS  FO  IN  D 

2CB2 

IE 

00 

3S20 

MV1 

E,0 

2CB4 

DS 

3S30 

PUSH 

D 

2CB5 

E3 

3S40  DWNl 

XTHL 

* 

• 

BUFPTR  TO  STACK,  GET  FO 

2CB6 

7C 

3SS0 

MOV 

A,H 

• 

SHIFT  HL  RIGHT  S 

2CB7 

29 

3S60 

DAD 

H 

2CB8 

29 

3S70 

DAD 

H 

2CB9 

29 

3S80 

DAD 

H 

2CBA 

6C 

3S90 

MOV 

L,H 

2CBB 

07 

1600 

RLC 

2CBC 

07 

3610 

RLC 

2CBD 

07 

3620 

RLC 

2COE 

E6 

07 

3630 

AN  I 

7 

• 

2CC0 

67 

3640 

MOV 

H , A 

2CC1 

2F 

36S0  . 

CMA 

2CC2 

S7 

3660 

MOV 

D,A 

* 

MULTIPLY  (HL)  BY  31 

2CC  3 

7D 

3670 

MOV 

A#i 

• 

IE.  HL-(HL)*32-(HL) 

2CC4 

2? 

3680 

CMA 

2CCS 

SF 

3690 

MOV 

E,A 

2CC6 

11 

3700 

INX 

D 

2CC7 

29 

3710 

DAD 

H 

2CC8 

29 

3720 

DAO 

ff 

2CC9 

29 

3730 

DAD 

H 

2CCA 

29 

3740 

DAD 

H 

2CCB 

29 

17S0 

DAD 

H 

2CCC 

19 

3760 

DAD 

D 

2CCD 

11 

SB 

01 

3770 

LXI 

D, 8*4  3 

• 

ADD  43  SHIFTEO  3 LEFT 

2CD0 

19 

3780 

dad 

D 

2C01 

7C 

3790 

MOV 

A,  H 

* 

NEW  FO  VALUE  INTO  A 

2CD2 

01 

3800 

POP 

D 

• 

GET  BUFFER  PTR 

2CD3 

ES 

3810 

PUSH 

H 

2CD4 

21 

09 

00 

3820 

LXI 

H.9 

2CD7 

19 

3830 

DAD 

D 

• 

UPDATE  TO  NEXT  FRAME 

2CD8 

CB 

3840 

XCHG 

2CD9 

2A 

EP 

36 

38S0 

LHLD 

NEGBND 

2COC 

19 

3860 

DAD 

D 

2CDD 

DA 

AC 

20 

3870 

JC 

BFERR-1 

• 

SORRY,  BUFFER  IS  FULI 

2CE0 

EB 

3880 

XCHG 

# 

2CE1 

77 

3890 

MOV 

M,A 

* 

PUT  FO  IN  BUFFER 

2CE2 

OO 

1900 

OCR 

c 

2CE3 

C2 

BS 

2C 

3910 

JN2 

DWNl 

2CE6 

Dl 

3920 

POP 

D 

2CE7 

3910  • 

2CE7 

3940  • END 

FOLOOP,  STEP  MATRIX 

TO  NEXT  PHON 

2CE7 

3 9 SO  « 

2CE7 

22 

OF 

36 

3960  ENDPO 

SHLD 

BUFPTR 

* 

SAVE  BUFFER  POINTER 

2CEA 

2A 

00 

3S 

1970 

LHLD 

MATPTR 

2CED 

21 

3980 

INX 

H 

2CEE 

22 

00 

3S 

3990 

SHLD 

MATPTR 

• 

INCREMENT  MATRIX  POINTER 
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ADDR 

B1 

B2 

B3  E 

DINE 

LABEL 

OPCD 

OPERAND 

2cfi 

EB 

4000 

XCHG 

2CF2 

2A 

02 

36 

4010 

LHLD 

NEGENO 

2CF5 

19 

4020 

DAD 

D 

2CF6 

D2 

6A 

2B 

4030 

JNC 

FOLOOP 

* 

THERE'S  MORE  TO  THIS  MATRIX 

2CF9 

2A 

EB 

36 

4040 

LHLD 

NEGBUF 

2CFC 

EB 

4060 

XCHG 

2CFD 

2A 

OF 

36 

4060 

LHLD 

BUFPTR 

2D00 

19 

4070 

DAD 

D 

2001 

EB 

4080 

XCHG 

2D02 

21 

09 

00 

4090 

LXI 

H.9 

• 

BUFFER  SPACE  USED  /9 

2006 

CD 

27 

20 

4100 

CALL 

DIV 

• 

- OVERALL  FRAME  COUNT 

2D08 

23 

4110 

I MX 

H 

• 

BUT  THAT  WAS  1 FRAME  SHORT 

2D09 

EB 

4120 

XCHG 

2D0A 

2A 

06 

20 

4130 

LHLD 

BUFADR 

* 

PUT  IT  IN  1ST  2 BYTES  OF  BUFFE1 

2D0D 

73 

4140 

MOV 

M,E 

2D0E 

23 

4160 

INX 

H 

2D0F 

72 

4160 

MOV 

M.D 

2010 

AF 

4170 

XRA 

A 

2011 

C9 

4180 

RET 

2D12 

4190 

* 

2012 

4200 

2012 

4210 

* 

2012 

4220 

* 

PARABOLA  GENERATOR  SUBROUTINES 

2D12 

4230 

• 

2D12 

4240 

* 

FPARAB 

2012 

4260 

* 

CONSTRUCT  FRONT  PARABOLA  CURVE  UP  TO  PEAK 

2012 

4260 

* 

ON  ENTRY:  (B) 

•STRESS 

X. 

(C) -FRAME  COUNT  TO  PEAK 

2012 

4270 

* 

HL 

POINTS  TO  FO  IN  LAST  FRAME  OF  PREV  PHON 

2012 

4280 

* 

2D12 

AF 

4290 

FPARAB 

XRA 

A 

2D13 

B9 

4300 

CMP 

c 

* 

RETURN  IF  N (FRAME  COUNT)  -0 

2D14 

C8 

4310 

RZ 

2D16 

66 

4 320 

MOV 

D,M 

* 

GET  PREV  FO  INTO  D 

2016 

E6 

4 330 

PUSH 

H 

2D17 

BA 

4 340 

CMP 

0 

2018 

C 2 

IF 

20 

4 360 

JNZ 

FPRB1 

• 

PREV  FO  WAS  NON-0,  USE  IT 

2D1B 

CD 

BF 

20 

4360 

CALL 

GETFO 

* 

PREV  WAS  0,  GET  ONE  FROM  TABLE 

2C1E 

66 

4 370 

MOV 

D,M 

2D1F 

3E 

06 

4 380 

PPRBl 

MVI 

A, 6 

* 

INDEX  TO  2ND  COL  OF  TABLE 

2021 

CD 

BP 

2D 

4 390 

CALL 

GETFO 

* 

GET  FO  LEVEL  AT  PARAB  PEAK 

2024 

7E 

4400 

MOV 

A t M 

2026 

92 

4410 

SUB 

D 

2D26 

47 

4420 

MOV 

B , A 

2027 

21 

E6 

36 

44  10 

LXI 

H.HPO+1 

* 

SET  HFO  TO  STARTING  PT 

2D2A 

72 

4440 

MOV 

M.D 

202B 

67 

4460 

MOV 

Or  A 

2D2C 

69 

. 

4460 

MOV 

f f* 

2020 

2C 

4470 

INR 

L 

2C2E 

AF 

4480 

XRA 

A 

2D2P 

6F 

4490 

MOV 

Er  A 

2D  30 

67 

4600 

MOV 

Hr  A 

2D31 

CD 

27 

20 

4610 

CALL 

DIV 

2D34 

29 

4620 

DAD 

H 

• 

DELTA-2* ( (266*DIP)/(N+1J) 

2D36 

S9 

4630 

MOV 

E,C 

* 

MOVE  FRAME  COUNT  TO  E 

2036 

22 

E7 

36 

4640 

PARAB2 

SHLD 

DELTA 

2039 

60 

4660 

MOV 

H,B 

• 

MOVE  B 6 C OUT  OF  MUL'S  WAY 

203A 

69 

4660 

MOV 

L,C 

II 
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ADDR 

8 1 

B2 

B 3 E 

LINE 

LABEL 

OPCD 

OPERAND 

2D  38 

43 

4670 

MOV 

B,E 

• 

GET  EITHER  tl  OR  N-l  PROM 

2D3C 

04 

4680 

INR 

B 

2D  10 

CD 

24 

20 

4690 

CALL 

MUL 

• 

DENOM-(B) * ( (B|  -1) 

2D40 

40 

4600 

MOV 

C,L 

2D41 

EE 

4610 

XCHG 

2342 

IE 

00 

4620 

MVI 

E,  0 

2D44 

CC 

27 

20 

463C 

CALL 

DIV 

• 

S-2*((266«DIP)/DENOM) 

2D47 

29 

4640 

DAE 

H 

2043 

7C 

4660 

MOV 

A,H 

2C49 

2F 

4663 

CMA 

204A 

67 

4670 

MOV 

H,  A 

2048 

7D 

4630 

MCV 

AIL 

2D4C 

2F 

4690 

CMA 

2D  40 

6F 

4700 

MOV 

L,  A 

234E 

23 

4710 

INX 

H 

2D4F 

22 

E9 

16 

4720 

SHLD 

SO 

2D62 

Ar 

4730 

XRA 

A 

2D61 

32 

E4 

16 

4740 

STA 

HFO 

• 

CLEAR  LS  PART  OP  HFO 

20S6 

El 

4760 

POP 

H 

2D67 

EB 

4760 

PA BAB  1 

XCHG 

2DS8 

21 

09 

00 

4770 

LXI 

H.9 

• 

MOVE  BUFFER  PTR  TO  NEXT  1 

2DSB 

19 

4780 

DAD 

D 

2DSr 

EB 

4790 

XCHG 

20  60 

2A 

EF 

16 

480C 

LHLD 

NEGBND 

2060 

19 

4310 

DAD 

D 

2061 

DA 

AD 

20 

4820 

JC 

BFERR 

• 

RAN  OUT  OF  ROOM] 

2064 

06 

4830 

PUSH 

D 

2066 

2A 

E7 

36 

4840 

LHLD 

DELTA 

2063 

EB 

4860 

XCHG 

2D69 

2A 

E4 

16 

4860 

LHLD 

HFO 

2D6C 

19 

4870 

DAD 

D 

2060 

22 

E 4 

16 

4880 

SHLD 

HFO 

• 

II  FO*HFO+ DELTA 

2070 

44 

4890 

MOV 

B,H 

• 

H CONTAINS  NEW  PO  VALUE 

2071 

2A 

E9 

16 

4900 

LHLD 

SD 

2074 

19 

4910 

DAD 

D 

2076 

22 

E7 

16 

4920 

SHLD 

DELTA 

* 

DELTA-DELTAtS 

2078 

El 

4930 

POP 

H 

• 

GET  BUF  PTR  BACK 

2079 

70 

4940 

MOV 

M,B 

2D7A 

OO 

4960 

DCR 

C 

2D7B 

C2 

67 

2D 

4960 

JNZ 

PARAB1 

2D7E 

C9 

4970 

RET 

2D7F 

4930 

* 

2D7F 

4990 

• 

BPARAB 

2D7F 

6000 

• 

CONSTRUCT  BACK  PARABO 

LIC  CURVE  DOWN  FROM  PEAK 

207F 

6010 

* 

ON  ENTRY:  (B) 

•STRESS 

X. 

(C) -FRAME  CNT  DOWN  FROM  1 

207F 

6020 

• 

HL 

POINTS  TO  FO  PARAM  AT  PEAK 

2D7F 

6030 

207F 

AF 

6 340 

QPARAB 

XRA 

A 

2080 

B9 

6060 

CMP 

C 

• 

RETURN  IF  FRAME  COUNT  -0 

2081 

ca 

6060 

RZ 

2D82 

66 

6070 

MOV 

D,M 

* 

GET  PREV  FO  VALUE 

2083 

E6 

6080 

PUSH 

H 

2084 

IE 

OA 

6090 

MVI 

A. 10 

2386 

CD 

BF 

2D 

6100 

CALL 

GETFO 

• 

SET  HL  TO  EKD-PARAB  LEVS 

2089 

7A 

6110 

MOV 

A,  D 

2D8A 

12 

E6 

16 

6120 

STA 

HFO+1 

• 

SAVE  OLD  FO 

2080 

96 

6110 

SUB 

N 

123 
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ADDR 

Bl 

B2 

Bl  E 

LINE 

LABEL 

OPCD 

OPERAND 

208E 

47 

9140 

MOV 

B,A 

• DIFF  TO  NEW  FO  INTO  B 

2D8F 

2i 

00 

00 

9190 

LXI 

H,0 

2092 

S9 

8160 

MOV 

E#C 

2091 

ID 

9170 

OCR 

E 

2D94 

C 2 

16 

2D 

9180 

JHZ 

PARAB2 

* N >1 , COMPUTE  PARABOLA 

2097 

3A 

ES 

16 

9190 

LOA 

HPO+1 

• N«l,  STORE  1 POINT 

209A 

SO 

8200 

.ADD 

B 

2098 

01 

8210 

POP 

D 

2D9C 

21 

09 

00 

8220 

LXI 

H,9 

• INCH  PTR  TO  NEXT  FRAME 

2D9F 

19 

8230 

DAD 

D 

20AO 

EB 

8240 

XCHG 

2DA1 

2A 

EF 

36 

9280 

LHLO 

NEGBND 

2DA4 

19 

8260 

DAO 

D 

2DA8 

DA 

AO 

20 

8270 

JC 

BFERR 

* NO  MORE  ROOM 

2DA  8 

EB 

8283 

XCHG 

20A9 

77 

8290 

MOV 

M,  A 

20  A A 

AF 

8300 

XRA 

A 

2 DAB 

C9 

9310 

RET 

20  AC 

8320 

* 

2DAC 

8330 

• 

ERROR  SUBROUTINE 

2D  AC 

8340 

• 

20AC 

01 

8380 

POP 

C 

• ENTRY  HERE  FROM  DOWNDR 

20A0 

21 

Bl 

2D 

8360 

BFERR 

LXI 

H,  BFTX 

2DB0 

F6 

FF 

8370 

OP  I 

2V> 

2DQ2 

C9 

8380 

RET 

20B3 

3390 

* 

2DB1 

42 

98 

46 

9400 

BFTX 

DT 

•BUFFER  FULL* 

2CB6 

48 

49 

92 

20B9 

20 

46 

99 

2DBC 

4C 

4C 

20BE 

oo 

9410 

DB 

ODH 

20BF 

8420 

• 

2DBF 

8430 

• 

GET 

' AN  FO  LEVEL  FROM 

STRSFO  TABLE  (SET  HL  TO  IT! 

2DBF 

8440 

• 

ON 

ENTRY: 

2DBF 

8480 

• 

A 

TELLS  THE 

COLUMN, 

0-SP,  8*MP,  10-EP 

20BF 

8460 

• 

B 

CONTAINS  THE  STRESS  LEVEL  1-8 

20BF 

8470 

* 

ON 

RETURN.  HL  POINTS 

TO  THE  DESIRED  ENTRY 

20BF 

8480 

• 

2DBF 

21 

C9 

20 

8490 

GETFO 

LXI 

H.STRSFO-1 

2 DC  2 

80 

8800 

ADD 

B 

2DC 1 

BS 

8810 

ADD 

r 

2DC4 

6F 

8820 

MOV 

L,A 

2DC8 

IE 

00 

8830 

MVI 

A,  0 

20C7 

8C 

8840 

ADC 

H 

2DCB 

67 

8980 

MOV 

H,  A 

20C9 

C9 

8960 

RET 

2DCA 

8870 

• 

2 OCA 

8880 

♦ 

FO 

TABLE  FOR 

DIFFERENT  STRESS  LEVELS 

2DCA 

8890 

• 

2 DC ' 

61 

8600 

STRSFO  DB 

99  • 

PARAB  STARTING  PT. , STRESS 

2DCU 

89 

8610 

DO 

89  • 

S.P. , STRESS  2 

2DCC 

84 

8620 

DB 

84  • 

ETC. 

20CD 

92 

8630 

DR 

82 

20CE 

91 

8640 

DB 

81 

2 DCF 

6C 

8680 

DB 

108  • 

PARAB  MID  POINT  (PEAK) 

2000 

63 

8660 

DB 

99 

2D01 

9E 

8670 

DB 

94 
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ADDR 

B1 

B2 

B3  E 

LINE 

LABEL 

OPCD 

OPERAND 

2002 

6C 

6680 

DB 

92 

2DD1 

SB 

6690 

DB 

91 

2DD4 

S9 

6700 

OB 

89  « 

PARAB  END 

2DD6 

4F 

6710 

DB 

79 

2006 

4A 

6720 

DB 

74 

2DD7 

47 

6730 

DB 

71 

2008 

46 

6740 

DB 

70 

2009 

6760 

• 

2DD9 

6760 

*• 

» • * < 

» 

2009 

6770 

* 

2CD9 

6780 

• 

CLRBUP 

IS  CALLED  BY  G 

ENPRM  TO 

2009 

6790 

• 

THE 

FARAMETER 

BUFFER 

(OR  PART  1 

2009 

6900 

• 

VALUES 

IN  THE 

FO  PARAMETER  ARE 

2DD9 

6810 

• 

2009 

6620 

• 

ON  1 

ENTRY!  (BC) 

• THE  < 

OF  FRAME; 

2D09 

6810 

• 

STARTING  WITH  THE  2N! 

2009 

6840 

* 

2009 

2A 

06 

20 

6860 

CLRBUP 

LHLD 

DUFADR 

2DDC 

11 

OB 

00 

6860 

LX  I 

D.ll 

2DDF 

19 

6870 

DAD 

D 

2000 

16 

SO 

6880 

MVI 

0,128 

2DE2 

IE 

AC 

6890 

MVI 

E,  172 

2004 

AF 

6900 

CLOOP 

XRA 

A 

2DE6 

77 

6910 

MOV 

M,A 

• AV-0 

2006 

21 

6920 

I NX 

H 

20E7 

21 

6910 

INX 

H 

2DE8 

72 

6940 

MOV 

M,D 

• F 1*123 

2DE9 

21 

6960 

INX 

H 

20EA 

72 

6960 

MOV 

M.D 

• F2-128 

2DEB 

21 

6970 

INX 

H 

2DEC 

71 

6980 

MOV 

M.E 

• F3-172 

2DE0 

2) 

6990 

INX 

H 

2000 

77 

6000 

MOV 

M , A 

• AH-C 

2D0F 

21 

6010 

INX 

H 

2DF0 

77 

6020 

MOV 

M * A 

• AF-0 

2DF1 

21 

6010 

INX 

H 

2DF  2 

72 

6040 

y.ov 

M,D 

• FF-128 

2DF3 

21 

6060 

INX 

H 

2DF4 

77 

6060 

MOV 

M , A 

* AN-0 

2DF  6 

21 

6071 

INX 

H 

2DF6 

OB 

6030 

OCX 

B 

2DF7 

BO 

6090 

ORA 

3 

2DF8 

31 

61C0 

ORA 

r 

2DF9 

C2 

E4 

20 

6110 

JNZ 

CLOOP 

2DFC 

C9 

6120 

RET 

2DF0 

6110 

* 

2DFD 

6140 

• 

END 

OP 

SECT  4 

125 


PACK  Ui 


ADOR  Hi 

B2 

32 

e LISE 

LAO  EL 

OPCD 

OPERAND 

2000 

0010 

• GLNPKM 

20  CO 

0020 

• 

2000 

00  10 

* SECTION 

S OF 

THE  CSRi  SYNTHESIS  BY  RULE 

2000 

0040 

• 

2000 

COSO 

• LLCYD  NICE, 

COP PUTALKER  CONSULTANTS 

2000 

CObO 

* VERSION 

l.Cd 

MAY  10,  1*77 

2000 

0070 

• 

2000 

OOdO 

*'JCU 

wove 

* 

2UCC 

ClOO 

* COMMON  JUMP  ADDRESS  TABLE 

2l  iO 

OliO 

• 

2 OOO 

0i2C 

CONJHP 

ECU 

> 

2000 

OilO 

* 

iU’Jl* 

0140 

CShi 

OS 

1 

200  1 

01S0 

PLAY 

us 

1 

2CCw 

OibO 

BUT  *DR 

CL 

2 

200b 

0170 

UUFLEN 

DC 

2 

2C0A 

oi»o 

PVTAB 

OS 

2 

200C 

0190 

HATPAK 

OS 

1 

2 OOP 

0200 

katerk 

DS 

1 

2Ci2 

0210 

RULES 

DS 

1 

20  iS 

0220 

SETDUU 

cs 

1 

i'lic 

02  10 

RULES  1 

DS 

1 

20  iD 

0240 

GEXFC 

DS 

1 

20it 

02  SO 

CLRBUF 

DS 

i 

202 i Cl 

CO 

2E 

0 2oO 

Jf.l 

CLiSPK* 

2024  Cl 

CO 

12 

0270 

JNF 

»UL 

2027  C 4 

1 1 

12 

02b0 

JMF 

01 V 

202A 

02  vO 

GETCNS 

DS 

i 

20  20 

0 100 

PCuFI 

OS 

i 

20  10 

0 110 

FlTAR 

DS 

2 

20  12 

0 120 

F i'TAH 

OS 

2 

20  14 

one 

F 3V  A A 

DS 

2 

20  lb 

0140 

AViiTAR 

DS 

2 

2 J Id 

CISC 

FkNIAR 

CS 

2 

20  >A  t IbC  • 

2ciA  0 170  * 


20  1A 

o ho 

• 

20  1A 

OiBO 

• COM  HAM  OKlGEN 

DEF1N11 ION 

201A 

0400 

• 

20  IA 

0410 

CRG 

CG4JMP+1 SUCH 

1S00 

0420 

COM RAM 

ECU 

i 

1S00 

04  10 

• 

1 SCO 

0440 

• CSnl 

SYS1E1  RAM  SPACE  DEFINITION 

• SCO 

04  SO 

• 

1S00 

0 4 o 0 

liATFl'K 

DS 

2 

1S02 

0470 

NLJENO 

OS 

2 

ISO  4 

04d0 

MATRIX 

ECU 

$ 

IS  04 

04Y0 

MATLEN 

ECU 

»S 

1 SO  4 

OSOO 

PHCODE 

DS 

MATLEN 

ISbl 

OSiC 

FEATA 

DS 

MATLEN 

ISC  2 

0S20 

Ft  ATB 

DS 

MATLEN 

H21 

OSiO 

SIRES 

DS 

MATLEN 

IbbO 

0S4C 

DUR 

DS 

MATLEN 

HOF 

OSSC 

MAT END 

ECU 

$ 

Hof 

OSoO 

BLTPTR 

DS 

2 

HEi 

0S7C 

• 
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ADDR  Bl  82  Bi  E LUIS  LABEL  OPCO  OPERAND 


3 


lbCi  OTaO  * IDE  NEXT  19  LOCATIONS  ARE  ACCESSED  GY  ROUTINES 

JbEl  CT90  * IN  SECTION  6 AND  MUST  NOT  BC  ROVED 

loEl  0600  * 


l&El 

0610  CCOLC 

DS 

1 

I6E2 

0620  OFEATA 

DS 

1 

1603 

06  JO  OFEATD 

os 

1 

36E4 

Ob4C  ODUh 

DS 

1 

36ES 

06T0  OCIO 

DS 

1 

IbEo 

0660  ORANX 

DS 

1 

36E7 

0670  OPCT 

CS 

1 

16EB 

06UU  OT1MLS 

DS 

1 

16E9 

0690  • 

JbE'J 

0700  CCDEX 

DS 

1 

3 6EA 

0710  FEATAX 

DS 

1 

JoEB 

0720  FEATBX 

DS 

1 

loEL 

07  JO  LUKX 

DS 

1 

36ED 

0740  CICX 

P6 

1 

)b££ 

07 TO  RANKX 

CS 

1 

36EF 

0760  PCTX 

us 

1 

JoFO 

0770  TIMESX 

DS 

▲ 

lbFl 

0760  • 

luFl 

0 760  BT 

DS 

1 

16F2 

tidUC  F7 

OS 

1 

J6F3 

c<iio  vc 

DS 

1 

3bF  4 

td20  • 

36F  4 

06  JO  • GEtiPRN 

(LOCAL)  RAN  WORKSPACE 

)6F4 

0340  » 

3bF4 

03T0  TARG 

CS 

1 

16FT 

CooC  BVAL 

OS 

A 

u 

0670  SD 

DS 

2 

J6F3 

C8U0  DELTA 

DS 

2 

JGFA 

0490  PCOUNT 

CS 

1 

J6FB 

0900  NTARGS 

DS 

1 

36FC 

0910  ASPT 

DS 

1 

JbFC 

0920  • 

36FO 

09  JO  •••••*•••• 

JbFC 

0940  • 

16FD 

09 TO  * GENPHM 

JbFU 

0*00  * 

JbFC 

0970 

GRG 

CONJNP+OEOCH 

2E00 

09bC  SECTAO 

ECU 

$ 

2 ECO 

0990  * 

2EU0 

1C0O  •••••••••• 

2E00 

itio  • 

20  00 

1020  * PIIGNEKE 

CODE 

DEFINITIONS 

2 ECO 

10J0  • 

2EC0 

• 1040  C7CHN 

ECU 

4 

2E00 

10S0  CP 

ECU 

19 

2E0U 

1060  * 

2EO'* 

1070  • FEATURE 

LAC  EL 

. DEFINITIONS 

2E0u 

1060  * 

2E00 

1090  IGNORE 

ECU 

1 

2000 

1100  STOP 

ECU 

BOH 

2E00 

1110  PLOS 

ECU 

2011 

2E0C 

1120  PLCSA 

ECU 

10H 

2E00 

11  JC  • 

2ECC  1140  • OUTPUT  CHANNEL  DEFINITIONS 


127 
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ADOR 

Bl 

B2 

B3  E 

LINE 

LABEL 

OPCD 

OPERAND 

2E0C 

use 

• 

2E00 

1160 

CHANAV 

ECU 

0 

2E0C 

1170 

CHANF1 

ECU 

2 

2 ECO 

line 

CHAN F 2 

EQU 

3 

2 ECO 

1190 

CIIANF1 

ECU 

4 

2ECC 

1200 

CIIANAH 

ECU 

S 

2ECC 

1210 

C1IANAF 

ECU 

6 

2 ECO 

122C 

CHAHFF 

ECU 

7 

2 ECO 

1210 

C1IANAN 

ECU 

0 

2ECC 

1240 

* 

2 ECO 

12SC 

** 

2 ECO 

1260 

• 

2 ECO 

1270 

* 

GENPRM 

SUBROUTINE 

2 ECO 

1230 

• 

2 ECO 

21 

OS 

IS 

1290 

GEtlPRM 

LXI 

H.MATR1X4-1 

2EC  > 

22 

CO 

3S 

1100 

SHLD 

MATPTR  • SET  MATPTR  TO  COL  2 (SKIP  4) 

2E06 

U 

El 

36 

1110 

LXI 

O.OCOCE 

2 EOS 

CD 

2A 

20 

1120 

CALL 

GETCNS  * GET  CONSTANTS  FOR  COL  2 PAUSE 

2E0C 

3A 

E4 

36 

1130 

LDA 

ODUR 

2 EOF 

4F 

1140 

MOV 

C.A 

2E10 

06 

00 

1 ISO 

KVI 

0,0  ’ 

2E12 

CD 

IE 

20 

1160 

CALL 

CLRBUF  * INITIALIZE  THE  1ST  FRAME 

2E1S 

11 

F7 

FF 

i 170 

LXI 

D,  -9 

2Eia 

19 

1180 

DAE 

D 

2Ei9 

22 

DF 

36 

1390 

SHLD 

BUFPTH  • SET  BUFPTR  TC  LAST  FRAME  AV 

2E1C 

21 

Co 

3S 

1400 

LXI 

H, MATRIX* 2 

2E1F 

22 

CO 

IS 

1410 

SUED 

MATPTR  « MATPTR  PTS  10  1ST  ACTUAL  PHCN 

2E22 

1420 

* 

2E22 

14  30 

• 

2E22 

1440 

• 

DURING 

PROCESSING  FOR  EACH  PHON,  MATPTK  INDICATES 

2E22 

14SC 

* 

THE  CURRENT  MATRIX  COLUMN.  BUFPTR  IS  THE  PARAMETER 

2E22 

1460 

* 

DUFFER 

INDEX. 

IT  CONTAINS  THE  ADDRESS  OF  THE  AV 

2E22 

1470 

* 

PARAMETER  IN 

THE  LAST  FRAME  OF  THE  PREVIOUSLY 

2E22 

14U0 

• 

PROCESSED  PHON. 

2E22 

i490 

• 

2E22 

11 

E9 

16 

1SC0 

GPLOOP 

LXI 

D,  CODEX 

2E  2") 

CD 

2A 

20 

1S10 

CALL 

GETCNS  * GET  CONSTANTS  FOR  NEXT  PHON 

2E2B 

3A 

LA 

36 

1S20 

LDA 

FEA1AX 

2E2B 

E6 

01 

iSlO 

ANI 

IGNORE 

2E20 

C2 

7C 

30 

1S40 

JNZ 

ENDPRM  • IGNORE  THIS  MATRIX  COLUMN 

2E3C 

3A 

E3 

36 

1SS0 

LDA 

CFEATB 

2 E 3 3 

E6 

20 

1S60 

ANI 

PLOS 

2E  3S 

CA 

40 

2E 

1S7C 

JZ 

NOPLOS  * THE  PRECEED1NG  NAS  NOT  A PLOSIV 

2E33 

3A 

EB 

36 

iSSO 

LDA 

FEATBX  • PREVIOUS  NAS  PLOSIVE 

2E'3B 

E6 

M 

1 S90 

ANI 

STOP 

2E3D 

CA 

30 

2F 

1600 

JZ 

SETASP  * CURR  IS  -STOP,  SET  ASPIRATION 

2E4C 

1610 

• 

2E40 

1620 

* 

N0PL03 

IS  THE 

MAIM  GENERATOR  LOOP  FOR  MOST 

2E4C 

1610 

* 

PriON  SECUENCES. 

2E4C 

1640 

* 

FORMANT  TRANSITIONS  ARE  GOVERNED  BY  RELATIVE  RANKS 

2E4C 

16S0 

• 

2E40 

3A 

EE 

16 

1660 

tJOPLOS 

LDA 

RANKX  • COMPARE  RANKS  OF  CURRENT 

2E43 

47 

1670 

MOV 

B,  A 

2E44 

3A 

EC 

36 

1680 

LDA 

ORANK  • AND  PREVIOUS  PHONS 

2E47 

b b 

1690 

CMP 

B 

2E4B 

CA 

6D 

2E 

1700 

JZ 

ECRANK  • RANKS  ARE  ECUAL 

2E4B 

OA 

8S 

2E 

1710 

JC 

OLTCUR  * OLD  LESS  THAN  CURRENT 

128 
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ADDR 

B1 

D2 

B3  E 

LINE 

LABEL 

CPCU 

OPERAND 

2E4B 

3A 

Ed 

36 

1720 

LOA 

OT1MES 

• 

OLD  GREATER  THAN  CURRENT 

2ES1 

6F 

1730 

MOV 

L»  A 

2ES2 

£6 

OF 

1740 

a :n 

OFH 

2ES4 

32 

FI 

3b 

17S0 

STA 

BT 

• 

BACK  TIME  - OLD  TPKI 

2ES7 

2b 

00 

1760 

MVI 

H,0 

2ES9 

29 

1770 

DAD 

H 

2ESA 

29 

1780 

DAD 

H 

2ESD 

29 

1790 

DAD 

H 

2ESC 

29 

1800 

DAD 

H 

2ESO 

7C 

1810 

MOV 

A,  H 

2ESE 

32 

F2 

36 

1820 

STA 

FT 

• 

FORWARD  TIME  - OLD  TSEC 

2E61 

3A 

E7 

36 

18  30 

LDA 

OPCT 

2E64 

2P 

1840 

CMA 

2E6S 

C6 

OS 

id  SO 

ADI 

S 

2E67 

32 

F3 

36 

I860 

STA 

PC 

• 

PC“1  • C-OPCT (BN  FT  FT  OF  BIT 

2EoA 

C3 

9£ 

2E 

1870 

JMP 

SLTFOR 

2E6D 

lddO 

* 

2EbD 

3A 

Ed 

36 

1890 

EC-RANK 

LDA 

OTIMES 

2E7U 

E6 

OF 

1900 

AN  I 

OFH 

2E72 

32 

FI 

36 

1910 

STA 

BT 

• 

BACK  TIME  • OLD  TPR1 

2E7S 

3A 

Ft 

3b 

1920 

LDA 

TIMESX 

2E7d 

Eb 

OF 

1910 

AN  I 

OFH 

2E7A 

32 

F2 

36 

1940 

STA 

FT 

• 

FORWARD  TIME  • CUKR  TPR1 

2E7D 

3E 

02 

19S0 

MVI 

A, 2 

2E7F 

32 

F 3 

3b 

1960 

STA 

PC 

• 

PC-.S  (BIN  PT  RIGHT  OF  BIT 

2E62 

C3 

9E 

2E 

1970 

JMP 

SETFOR 

2E8S 

1980 

• 

2E0S 

3A 

FO 

36 

1990 

OLTCUR 

LDA 

TIMESX 

2E8b 

OF 

2000 

MOV 

L.A 

2E89 

£6 

OF 

2010 

AN  I 

OFH 

2E»B 

32 

F2 

36 

2020 

STA 

fT 

• 

FORWARD  TINE  - CURR  TPRI 

2Eb£ 

28 

CO 

20  30 

MVI 

H>4 

2E90 

29 

2040 

DAD 

H 

2E91 

29 

20SO 

DAD 

H 

2E92 

29 

2060 

DAD 

H 

2E9  ' 

29 

2070 

DAD 

H 

2E94 

7C 

2060 

MOV 

A,H 

2E9S 

32 

FI 

36 

2090 

STA 

BT 

• 

BACK  TINE  - CURR  TSEC 

2E9b 

3A 

EF 

36 

2100 

LDA 

PCTX 

2E9B 

32 

F 3 

36 

2110 

STA 

PC 

• 

PC  • CUHRENT  PCT 

2E9E 

212C 

• 

2E9E 

2110 

* CONFUTE 

6 STORE  3 FORMANT  PARAMETERS 

2E9E 

2140 

• 

2E9E 

2A 

30 

20 

21S0 

5ETF0R 

LHLD 

FlTAR 

2EAl 

EB 

2160 

XCHG 

2LA2 

01 

02 

CO 

2170 

LX1 

BiCHANFl 

2EAS 

CO 

At 

30 

2180 

CALL 

GENFX 

• 

SET  FORMANT  1 

2EAd 

2A 

32 

20 

2190 

LHLD 

F2TAR 

2EAB 

EB 

2200 

XCIIG 

2EAC 

01 

03 

00 

2210 

LX1 

B.CHANF2 

2EAF 

CD 

AE 

30 

2220 

CALL 

GENFX 

• 

SET  FORMANT  2 

2EB2 

2A 

34 

20 

22  30 

LhLD 

F3TAR 

2EBS 

EB 

2240 

XCKC 

2E06 

01 

04 

00 

22SO 

LXI 

B.CHANF3 

2EU9 

CD 

AE 

30 

2260 

CALL 

GENFX 

• 

SET  FORMANT  3 

2EBC 

2270 

• 

2EBC 

2280 

• CONFUTE 

6 STORE  AV 

129 


PACE  OS 


A DDR 

81 

B2 

87  E 

line 

LABEL 

OPCC 

OPERAND 

2ECC 

2290 

• 

2EBC 

Co 

OC 

2 ICC 

SETAMP 

NVT 

B,U 

2L3E 

CD 

20 

2C 

2)10 

CALL 

PCBFT 

• 

SET  UP  PC , BT  6 FT  WITH  AV  INFO 

2EC1 

2A 

18 

20 

2 32C 

LHLD 

AVHTAR 

2 EC  4 

1A 

C9 

lb 

2)10 

LDA 

CCD  EX 

2EC7 

lb 

UC 

2)40 

MW 

Dt  c 

2EC9 

'.F 

2 3S0 

MOV 

E,A 

2ECA 

lb 

2)60 

DAO 

C 

2ECB 

7E 

2)70 

MOV 

A,M 

• 

GET  AV/AH  TARGET  BYTE 

2LCC 

Fi 

2 180 

POSH 

PSW 

2ECD 

Eb 

PC 

2190 

AN  l 

orcu 

• 

HASH  TO  KEEP  AV 

2EC  r 

Cl 

OC 

CO 

24U0 

LAI 

BtCHANAV 

2ED2 

CL 

Co 

>0 

2410 

CALL 

genax 

• 

SET  AMPLITUDE  CF  VOICING 

2EDS 

2420 

• 

2EDS 

24)0 

• 

CCilFUTE 

* STORE  AH 

2EDS 

2440 

« 

2EDS 

ri 

2 4 SO 

POP 

PSM 

2ED6 

E6 

CF 

2460 

AN1 

CPU 

• 

NOW  MASK  TO  KEEP  A1I 

2ED8 

b 7 

247C 

ADO 

A 

2ED9 

b? 

24dC 

ADO 

A 

• 

MULT  BY  4 

2EDA 

Cl 

OS 

00 

2490 

LX1 

B , CHANAH 

2EC0 

CD 

Cd 

10 

2 SCO 

CALL 

GCNAX 

• 

SET  AMPLITUDE  OF  HISS 

2 EE  '2 

2 SIC 

• 

2 EEC 

2S20 

• 

COVPUTE 

6 STORE  At 

2 EEC 

2S10 

• 

2 EEC 

0 6 

Cl 

2S40 

MV1 

B.l 

2EE2 

CD 

20 

20 

2SSC 

CALL 

PCBFT 

• 

SET  PC,  rr  6 FT  WITH  AF  INFO 

2EES 

2A 

Id 

20 

2S60 

LHLD 

FRNTAR 

2£Ed 

IA 

E9 

>6 

2S7C 

LCA 

CODEX 

2EE3 

SF 

2S80 

wcv 

E.A 

2EEC 

lb 

OC 

2S9C 

MV1 

D.C 

2EEE 

19 

2600 

DAO 

D 

2EEF 

7E 

261C 

MOV 

A,N 

• 

GET  FR1C/NASAL  TARGET  BY" E 

2 EEC 

rs 

2b2C 

PUSH 

PSW 

2EF1 

Eb 

1C 

26)0 

AN  I 

1CH 

• 

MASK  TO  KEEP  AF  TARGET 

2EF1 

87 

2o4C 

ADD 

A 

2EF4 

Cl 

Cb 

00 

2bS0 

LXI 

B.CHANAF 

2EF7 

CD 

Cb 

1C 

2660 

CALL 

GCNAX 

• 

SET  AMPLITUDE  OF  FA1CAT10W 

2EFA 

2«7C 

• 

2EFA 

2bdC 

• 

SET  FF 

TO  TARGE)  VALUE 

FOR  TIME  DU AX 

2EI  A 

2690 

• 

2EFA 

FI 

2700 

POP 

PSw 

• 

GET  FRIC  TARC  AGAIN 

2EFB 

13 

2710 

CCX 

SF 

2EFC 

IB 

272C 

OCX 

SF 

• 

BUT  LEAVE  IT  IN  THE  STACK,  TOO 

2EFD 

Eb 

10 

27  1C 

AN1 

CEOH 

• 

KEEP  FF  TARGET 

2EFF 

S7 

274C 

MOV 

D.A 

2FCJ 

Cl 

■17 

oc 

2>S0 

LXI 

B.CHANFF 

2F0  1 

2A 

OF 

H 

2760 

LIILO 

BUFPTR 

2FC« 

09 

2770 

DAD 

B 

24  07 

IA 

EC 

16 

2 7 dO 

LDA 

DUkX 

2FCA 

Cl 

C9 

CC 

2790 

LXI 

B,9 

2FCO 

C9 

28CU 

SETFF 

DAO 

0 

2FCE 

72 

2010 

MOV 

M,D 

• 

SET  FF  DIRECTLY  FROM  TARCET 

2ror 

ID 

2820 

OCR 

A 

2P1C 

C2 

CO 

it 

2d  !C 

JM 

SETFF 

2F1  ) 

2440 

• 

2F1) 

24S0 

• 

COWROTE 

6 STORE  AM 
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ADDrt 

el 

B2 

BJ  E 

LINE 

LABEL 

OPCC 

OPERAND 

2F1  > 

2dbO 

* 

2F1  1 

IE 

03 

2670 

H VI 

A, 3 

• 

PC". 6 FOR  NASAL 

2F16 

12 

FI 

lb 

2660 

STA 

PC 

2F18 

ID 

2630 

OCR 

A 

2F13 

32 

FI 

lb 

2600 

STA 

BT 

• 

BACK  6 FORK  TINES  > 2 FRAMES 

2F1C 

12 

F2 

16 

2810 

STA 

FI 

2F  IF 

FI 

2320 

POP 

PSW 

• 

GET  NASAL  TARGET 

2F20 

£6 

01 

2310 

• ANI 

3 

2F22 

87 

2340 

ADD 

A 

2F21 

67 

2860 

ADD 

A 

2F24 

87 

2860 

ADC 

A 

2F2S 

87 

2370 

ADD 

A 

2F26 

67 

23s  0 

ADD 

A 

• 

PULT  BY  32 

2F27 

01 

08 

00 

2390 

LXI 

B.CHANAN 

2 F2A 

CO 

C8 

10 

1000 

CALL 

Gt  SAX 

• 

SET  AMPLITUDE  OF  NASAL 

2F  20 

C3 

7C 

10 

1010 

JMP 

endprm 

2F30 

1020 

• 

2F30 

10  10 

• 

2F3C 

1040 

• 

HANDLE 

-STOP 

AFTER  PLOSIVE 

2F30 

1060 

• 

SETASP 

SETS  THE  PLOSIVE 

BURST  PULSE 

2F  IJ 

1060 

• 

AND  IF 

NEEDED 

, ASPIRATION  IN  THE  F0LL06 INC  PHON. 

2F30 

1070 

• 

2F30 

)A 

El 

7o 

1C60 

SETASP 

LDA 

OCODE 

2F3I 

06 

27 

1090 

SUI 

CP 

2F36 

4F 

uco 

MCV 

C.A 

• 

PLOSIVE  CODE  - CODE  OF  *P" 

2F3o 

06 

00 

ino 

HVI 

B.C 

2M6 

21 

36 

32 

1120 

LX  I 

H.PLGSC 

• 

MAKE  POINTER  TO  PLCSC  TABU 

2F3B 

08 

11 10 

DAD 

B 

2F1C 

7E 

1140 

MCV 

A,M 

• 

GET  LENGTH  OF  BURST  PULSE 

2F  30 

47 

1160 

HCV 

B.A 

2ME 

67 

3160 

ADD 

A 

2F3F 

67 

3170 

ADD 

A 

2F4C 

37 

3160 

ADD 

A 

2F41 

60 

3190 

ADO 

B 

2F42 

2F 

1200 

CKA 

2F4I 

K 

3210 

INK 

A 

2F44 

4F 

3220 

MCV 

C.A 

2F4S 

7b 

12  10 

MOV 

A,B 

• 

A • PULSE  LENCTH 

2F46 

06 

rr 

1240 

NVl 

b.  266 

• 

BC  « -9*  (PULSE  LENGTH ) 

2F46 

2A 

OF 

16 

1260 

LHLO 

CUFPTR 

2F48 

08 

!2oO 

DAD 

B 

2F4C 

01 

06 

o« 

1270 

LXI 

B . CHANAP 

2F4r 

08 

1280 

DAD 

D 

2F60 

01 

08 

00 

1280 

LXI 

B«  9 

2F6  1 

08 

1 100 

BURST 

DAD 

B 

2P64 

!• 

24 

1110 

nvi 

M,  i6 

• 

PLOSIVE  BURST  AF  VALUE 

2rS6 

30 

1120 

DC  H 

A 

2F67 

C2 

6 1 

2F 

1110 

JNZ 

BURST 

2FSA 

1140 

• 

2F6A 

1160 

* 

COMPUTE  FORMANTS  FOR  PHOM  AFTER  PLOSIVE 

2F  A 

1160 

• 

2FSA 

3A 

EE 

<6 

1170 

LDA 

RANKS 

2F60 

re 

01 

1160 

CPI 

3 

2F6F 

02 

71 

2F 

1130 

JNC 

GTPLOS 

• 

CURA  KAMI.  > PLUS  RANK  ("21 

2F62 

IE 

02 

1400 

HVI 

A.  2 

2F64 

12 

FJ 

J* 

1410 

STA 

PC 

• 

CURA  MANX  <-  2,  PC-0.6 

2F«7 

IA 

E6 

36 

1420 

LDA 

OTIHES 

• 

FT  ■ OLD  1SLC 
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ADDR 

Bl 

B2 

B3  E 

LINE 

LABEL 

OPCC 

OPERAND 

2F6A 

CF 

1410 

RKC 

2F6B 

OF 

1440 

rrc 

2F6C 

OF 

149C 

KRC 

2F6D 

OF 

!4oC 

RRC 

2F6E 

Cl 

7A 

2F 

1470 

JMP 

SET1MS 

2F7i 

1480 

• 

2F7i 

)A 

EF 

lb 

3490 

GTPLOS 

LDA 

PCTX 

2F74 

12 

F 3 

lb 

1900 

STA 

PC  * 

PC  • PCT  OF  CURRENT  PHON 

2F77 

iA 

FO 

lb 

ISiC 

LDA 

T1MESX  • 

FT  - CURR.  l'PRI 

2F7A 

Et> 

OF 

1920 

SET1MS 

AN  I 

CFH 

2F7C 

32 

F 2 

lb 

1930 

STA 

FT 

2F7F 

1£ 

01 

1940 

MVI 

A.i 

2F  61 

12 

FI 

16 

199C 

STA 

ET  • 

BACK  TIME  ■ 1 (TO  SET 

BVAL) 

2F84 

1960 

« 

2F64 

1970 

* GENERATE  FORMANTS  DURING  E.4TIRE  POST-PLOSIVE 

2Fo4 

i960 

• 

2F64 

2A 

10 

20 

1940 

LIILD 

FITAR 

2F37 

EB 

1600 

XCHG 

2F  da 

01 

02 

OC 

1610 

LX  I 

B.CHANFl 

2F8B 

CL 

AE 

10 

162C 

CALL 

GENFX  • 

SET  FORMANT  I 

2FCE 

2A 

12 

20 

1610 

LtILD 

FITAR 

2F91 

ELI 

1640 

XCHG 

2F92 

Cl 

Cl 

00 

1690 

LX1 

C.CHAHF2 

2F99 

CD 

AE 

10 

1660 

CALL 

GENFX  • 

SET  FORMANT  2 

2F  9b 

2A 

14 

20 

1670 

LIILD 

FITAR 

2F4B 

ED 

1680 

XCHG 

2F9C 

Cl 

04 

CO 

1690 

LXI 

B.CHANFl 

2F9F 

CD 

AE 

10 

1700 

CALL 

GENFX  * 

SET  FORMANT  1 

2FA2 

1710 

• 

2FA2 

1720 

• SET 

FF  - TARCET  VALUE  FOR  TIME  OURX 

2FA2 

37  10 

• 

2FA2 

2A 

3tt 

20 

1740 

LHLL 

FRNTAR 

2FAS 

iA 

E4 

lb 

1790 

LDA 

CODEX 

2FAB 

SF 

1760 

HOV 

E.A 

2FA9 

i6 

00 

1770 

MVI 

D.O 

2FAB 

14 

1760 

CAD 

D 

2 FAC 

7E 

1790 

MOV 

A.M  • 

GET  PHON  X FRICATIVE 

TAP'ET 

2FAO 

E6 

EO 

1800 

AN  I 

CEOH  • 

MASK  TO  KEEP  FF 

2FAF 

97 

1810 

HCV 

D.A 

2FBC 

2A 

CF 

3o 

1320 

LHLD 

BUFPTR 

2FO) 

01 

07 

00 

1810 

LXl 

B.CHANFF 

2F36 

09 

1840 

DAD 

B 

2FB7 

IA 

EC 

lb 

18  90 

LDA 

OURX 

2FBA 

Cl 

C9 

CO 

1360 

LXl 

B,9 

2FCQ 

09 

1870 

SETFP2 

DAD 

B 

2rsK 

72 

1880 

MOV 

M,  D • 

SET  FF  DIRECTLY  FROM 

TARGET 

2FBF 

30 

1840 

DCR 

A 

2FC0 

C 2 

BO 

2F 

1900 

JNt 

SETFF2 

2FC1 

191 C 

• 

2FC1 

1920 

• SET 

AN«C  FOR 

TIME  OURX 

2FC  ) 

1910 

• 

2FC  ) 

2A 

DF 

16 

1940 

LHLD 

BUFPTR 

2FCS 

11 

03 

00 

1990 

LXI 

D.CHANAN 

2FC9 

19 

I960 

DAD 

D 

2FCA 

IA 

EC 

16 

1970 

LDA 

DURX 

2FCO 

04 

1980 

SETAN 

DAD 

B 

2FCE 

lb 

00 

1990 

MVI 

M.O  • 

SET  AN  * 0 
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A OOP 

Bi 

B2 

B3  E 

LINE 

LABEL 

OPCD 

OPERAND 

2PD0 

30 

4000 

OCR 

A 

2fdi 

C2 

CD 

2P 

4010 

JNZ 

SET  AN 

2FD4 

4020 

• 

2F04 

4030 

* 

SEE 

IF 

PLOSIVE  SHOULC  EC  ASHRATCD 

2FD4 

4040 

* 

2FD4 

3A 

E3 

36 

40  SO 

LDA 

OFEATB 

2FD7 

E6 

10 

4060 

AN! 

PLOSA 

2FD9 

CA 

3A 

30 

40  70 

JZ 

r INASP  * NO,  FINISH  CURR.  PHON 

2FDC 

3A 

EC 

36 

4030 

LDA 

DUKX 

2FCF 

li 

CS 

4090 

MVI 

D,S  • BASE  ASP  TIME  ■ SO  MSEC 

2FE1 

BA 

4100 

CMP 

D 

2FE2 

OA 

E6 

2F 

4110 

JC 

S+4  * DURX  < SO  MSEC,  SET  ASPT-DURX 

2FES 

7a 

4120 

110V 

A, D » THERE’S  ROOM,  SET  ASP1-SC  MSEC 

2FE6 

32 

FC 

36 

41  10 

STA 

AS  PI 

2FE9 

4140 

ft 

2FE9 

41S0 

ft 

SET 

A V 

* 0 FOR  DURATION  OF  ASPIRATION  (ASPT) 

2FE9 

4160 

ft 

2FE9 

2A 

OF 

3b 

4170 

LHLC 

DUFPTR 

2FEC 

11 

OC 

00 

4180 

LXI 

D.CHAHAV 

2FEF 

19 

4190 

DAD 

D 

2FFC 

09 

4 200 

SETAV 

DAD 

a 

2FF1 

36 

00 

4210 

MVI 

M,C  « SET  AV  - 0 

2FF3 

30 

4220 

DCR 

A 

2FF4 

C 2 

FU 

2F 

42  30 

JN2 

SETAV 

2FF7 

4240 

ft 

2FF7 

4 2S0 

ft 

SET 

AF 

■ 0 DURING  ASPIRATION 

2FF7 

4260 

ft 

2FF7 

3A 

FC 

36 

4 270 

LDA 

ASPT 

2PFA 

2A 

OF 

36 

42b0 

LHLD 

BUFPTR 

2FFD 

li 

06 

00  • 

4 290 

LXI 

0, CHANAP 

3000 

19 

4 300 

DAD 

0 

30C 1 

09 

4310 

SETAF 

DAD 

B 

3002 

36 

00 

4 320 

MVI 

HtC  • SET  AP  • C 

3004 

30 

4 3 30 

DCR 

A 

30US 

C2 

01 

10 

4 340 

JN2 

SETAP 

3008 

4 3S0 

ft 

3C08 

4360 

ft 

CALL  FF'I'RD  TO 

PRODUCE  TRANSIENT  PULSE  ON  AH 

3008 

4 370 

ft 

3008 

AF 

4 160 

XRA 

A 

3009 

32 

F4 

36 

4 390 

STA 

TARG 

300C 

3A 

FC 

36 

4 400 

LDA 

ASPT 

1C0F 

47 

4410 

MOV 

B,A  * DECAY  TO  C BY  END  OP  ASP  TIME 

3010 

4P 

4420 

MOV 

C » A 

3011 

2A 

CF 

16 

44  30 

LHLD 

BUFPTR 

1014 

11 

OS 

00 

4440 

LXI 

D,CHANAH 

3017 

19 

44SO 

DAD 

D • 

3018 

36 

1? 

4460 

MVI 

M,SC  • INITIAL  All  PULSE  AMPLITUDE 

3C1A 

CD 

E7 

30 

4470 

CALL 

FRWRD 

3010 

4460 

ft 

101D 

4 4 90 

ft 

SEC 

IF 

ASPIRATION  TIME  TOOK  THE  ENTIRE  CURR.  FHON 

3010 

4SC0 

* 

1010 

1A 

FC 

36 

4310 

LDA 

ASPT 

3020 

47 

4S20 

MOV 

B.A 

3021 

3A 

EC 

36 

4S10 

LDA 

DURX 

3024 

90 

4S40 

SUB 

B 

302S 

CA 

7C 

10 

4SS0 

JZ 

ENDPRM  • ASP  TIME  TOOK  IT  ALL,  DONE 

1028 

32 

EC 

36 

4S60 

STA 

DUHX  • SET  DURX-DURX-ASPT 
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ADCS 

el 

B2 

B 1 E 

CINE 

LABEL 

OPCD 

OPERAND 

102B 

78 

4570 

NOV 

A,E 

1C2C 

87 

45ti0 

ADD 

A 

3C2D 

67 

4 590 

ADD 

A 

1C2E 

67 

4600 

ADD 

A 

1C2F 

80 

4610 

ADD 

B 

JC  1C 

4F 

4620 

MOV 

C,A 

• ASPT*9  INTO  BC 

1031 

06 

00 

4610 

MVI 

B.O 

1011 

2A 

CF 

16 

4640 

LHLD 

BUFPTR 

1016 

09 

4650 

DAD 

B 

1017 

22 

DF 

36 

4660 

SHLC 

BUFPTR 

* BUFP1R*BUFPTR+9*A.CPT 

10 1A 

4670 

* 

1C  1A 

4660 

* 

CO, 4 putt 

AV  FOR  REMAINDER  OF  PHOK 

10  1A 

4690 

* 

10  1A 

06 

00 

4700 

FINASP 

MVI 

E,0 

10 1C 

CC 

2D 

20 

4710 

CALL 

PC8FT 

• GET  AV/A1I  VALUES  FOH  PC  6 FT 

10  IF 

IE 

01 

4720 

MVI 

A , 1 

1041 

12 

Fl 

16 

4710 

STA 

BT 

* BT*1  SETS  BVAL  FROM  TARG 

104  4 

2A 

16 

20 

4740 

LHLD 

AVHTAR 

1047 

3A 

E9 

16 

4750 

LDA 

CCDEX 

1C4A 

16 

00 

4760 

MVI 

0,0 

10  4C 

5F 

4770 

MOV 

E,  A 

1040 

19 

4780 

DAD 

D 

104E 

05 

4790 

PUSH 

0 

* SAVE  CODEX  TABLE  OFFSET 

104F 

7E 

4800 

MOV 

A , N 

* GET  AV/AH  TARGET  BYTE 

1050 

F5 

4810 

PUSH 

PEW 

* SAVE  IT 

1051 

E6 

FO 

4020 

AN1 

OFOH 

• MASK  TO  KEEP  AV 

1051 

01 

00 

00 

4 610 

LX1 

B.CKANAV 

1C  56 

CD 

ca 

10 

4840 

CALL 

GENAX 

• FINISH  AV  CURVE 

1059 

4850 

• 

1059 

46o0 

• 

COMPUTE 

AH  FOR  REMAINDER  OF  PHON 

1059 

4870 

* 

1059 

Fi 

4880 

POP 

PSV» 

1C5A 

£6 

OF 

4890 

ANI 

CFH 

* MASK  TARGET  BYTE  TO  KEEP  AH 

10  5C 

67 

4900 

ADD 

A 

1050 

«7 

4910 

ADD 

A 

• MULT  BY  4 

3056 

01 

05 

00 

4920 

LX1 

e, CHAN AH 

1061 

CC 

C 6 

10 

4910 

CALL 

GEt.'AX 

* FINISH  AH  CURVE 

1064 

4940 

• 

1064 

4950 

• 

COMFUTE 

AF  FOR  REMAINDER  CF  PHON 

1064 

4960 

• 

1064 

IE 

01 

4970 

MVI 

A, 3 

1066 

12 

F2 

16 

4 980 

STA 

FT 

• FT  * 1 

1069 

1C 

4990 

1NR 

A 

10  6A 

12 

Fl 

16 

50CC 

STA 

PC 

•PC  - I. 00 

106D 

2A 

Id 

20 

5010 

LHLD 

FRNTAR 

1070 

Cl 

5020 

POP 

D 

1071 

19 

5010 

DAD 

D 

1072 

7E 

5040 

MOV 

A,M 

• GET  FRIC/NASAL  TARGET  BYTE 

1071 

Eo 

1C 

5050 

ANI 

ICrt 

• MASK  TO  KEEP  AF 

1075 

o7 

5060 

ADD 

A 

1076 

Cl 

06 

00 

5070 

LX1 

C.CHANAF 

1079 

CO 

C6 

10 

5C8C 

CALL 

GENAX 

• FINISH  AF  CURVE 

1C7C 

5090 

• 

107C 

5100 

• 

1C7C 

CO 

5110 

ENDPRN 

NOP 

• 

• BREAKPOINT  LOC 

107D 

2A 

EC 

16 

5120 

LI1LD 

DURX 

ICol 

26 

CO 

5110 

MVI 

H.C 
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A DDK 

Dl 

CD 

K> 

D 3 E 

LINE 

LABEL  OPCD 

OPERAND 

3082 

54 

5140 

MOV 

C,H 

1083 

*>D 

5150 

MOV 

E,L 

• MULTIPLY  DURX  BY  9 

1084 

29 

5160 

DAD 

H 

308  S 

29 

5170 

DAD 

tl 

3066 

29 

5180 

DAD 

H 

3087 

i9 

5190 

DAD 

D 

30bd 

EB 

5200 

XCHG 

3089 

2A 

DF 

Ju 

5210 

LHLD 

BUFPTR 

308C 

19 

5220 

DAD 

D 

308D 

22 

DF 

36 

52  30 

SHLD 

BUFPTR 

• BUFPTR«BUFPTR+9*DURX 

3090 

2i 

EV 

36 

5240 

LX1 

H, CODEX 

309  3 

11 

El 

36 

52  50 

LX  I 

D.OCODE 

3096 

OE 

08 

5260 

MVI 

C,8 

3093 

7E 

5270 

CNSLP  MOV 

A,M 

* MOVE  CURR  CONSTANT  VALUES 

3099 

12 

5280 

STAX 

D 

• INTO  OLD  CONSTANTS 

3C9A 

23 

5290 

INX 

H 

3098 

13 

5300 

INX 

D 

309C 

CD 

5)10 

. DC  R 

c 

3C9D 

C 2 

98 

30 

5 120 

JNZ 

CNSLP 

30A0 

2A 

00 

35 

5 3 JO 

LHLD 

matptr 

30A3 

23 

5340 

INX 

H 

30A4 

22 

OC 

35 

5 350 

SHLD 

MATPTR 

30A7 

7E 

5)60 

MOV 

a,k 

3CAS 

PE 

04 

5 3 70 

CPI 

CTER.M 

* SEE  IF  NEW  CODE  IS  TERMINATOR 

30AA 

C2 

22 

2E 

5 380 

JNZ 

gploop 

* NO,  DO  ANOTHER  COLUMN 

JO  AD 

C9 

5 390 

RET 

• 

* THAT'S  IT,  LETS  GO  LISTEN 

30AE 

5400 

• 

JOAE 

5410 

• 

30AE 

5420 

**< 

30AE 

54)0 

• 

30AE 

5440 

• 

GENPRM  SUBROUTINES  AND 

SOME  TABLES 

30AE 

54  50 

• 

30AE 

54bO 

• *< 

30AP 

5470 

* 

JOAE 

54  UO 

• 

GENERATE  FORMANT  TRANSITIONS  BETWEEN  PREVIOUS 

JOAE 

5490 

• 

AND  CURRENT  PHONS 

JOAE 

5500 

• 

ON  ENTRY:  DE 

POINTS  TO  FORMANT  TARGET  TABLE 

IOAE 

5510 

• 

BC 

CONTAINS 

THE  OUTPUT  CHAN  NO  OF  THAT 

JOAE 

5520 

• 

FORMANT 

(TELLS  WHICH  BYTE  OF  FRAME) 

JOAE 

55  30 

* 

JOAE 

JA 

E9 

36 

5540 

GEtlFX  LDA 

CODEX 

JCOi 

OF 

MOV 

l,a 

SOB  2 

26 

OC 

5560 

MVI 

H,C 

308  4 

19 

5570 

DAD 

D 

JOBS 

7E 

5580 

MOV 

a,m 

3086 

32 

F4 

36 

5590 

STA 

targ 

* SET  TARGET  VALUE 

3CB9 

2*. 

DP 

36 

5600 

LHLD 

BUFPTR 

JCBC 

09 

5610 

DAD 

B 

« SET  HL  TO  FORMANT,  FRAME  I 

JOBD 

96 

5620 

SUB 

M 

JOBE 

CO 

02 

31 

56  30 

CALL 

MULPC 

* MULT  TARG-FX(I)  BY  PC 

J<T1 

8o 

5640 

ADD 

M 

300  2 

32 

rs 

36 

5650 

STA 

bval 

* BVAL-FX(I)+PC*(TAPG-FX(I)) 

JOCS 

Cl 

D 8 

30 

5660 

JMP 

GENBF 

IOC  8 

5670 

• 

sue* 

5680 

• 

GENAX  SUBROUTINE 

JOCd 

5690 

• 

GENERATE  AMPLITUDE  TRANS lTlONS  BETWEEN  PREV 

JOCS 

5700 

• 

AND  CURRENT  PHONS 

135 
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A DOR 

B1 

82 

B1 

E LINE 

LABEL 

OPCD 

OPERAND 

ICC  8 

9710 

• ON  ENTRY!  A 

CONTAINS 

THE  PARAM  TARGET  VALUE 

ICCb 

9720 

* 

BC 

CONTAINS 

THE  OUTPUT  CHAN  NO. 

ICC  8 

97  10 

* 

3CCb 

12 

F4 

36 

9740 

GENAX 

STA 

TARG 

• SET  TARGET  VALUE 

IOC  a 

2A 

CF 

36 

9790 

LHLD 

QUFPTR 

30CE 

09 

9760 

DAD 

B 

* SET  HL  TO  PA RAM  IN  FRAME  1 

30CF 

88 

9770 

ADD 

M 

3CDO 

IF 

9780 

RAR 

30D1 

B7 

9790 

ORA 

A 

• DIVIOE  BY  2,  CLEAR  CARRY 

3CD2 

CD 

D2 

31 

9800 

CALI. 

MULPC 

3CD9 

32 

FS 

36 

9810 

STA 

3VAL 

• BVAL*PC*(TARG+Y)/2 

30D8 

3A 

Fl 

lb 

9b2C 

GENBF 

LDA 

BT 

30CB 

47 

9b  30 

f^OV 

B,A 

10DC 

CD 

oft 

31 

9840 

CALL 

BCV.'RD 

• MODIFY  CURVE  BACK  FROM  BOUNDARY 

3CDF 

3A 

tc 

36 

91.90 

LDA 

DURX 

1062 

4F 

9860 

HCV 

C , A 

30E3 

IA 

F 2 

36 

9870 

LDA 

FT 

30E6 

47 

9bdU 

MOV 

D,A 

3CE7 

9890 

• 

30E  7 

9900 

• FRKRD 

30E7 

9910 

* S10HES 

TFE  NEXT  N FRAMES  BEYOND  THE  PARAM  VALUE 

30E7 

9920 

* CURRENT 

LY  INDICATED  BY  HL.  B CONTAINS  THE  NUMBER 

30E7 

99  30 

* OF  FRAMES  NEEDED  TO  REACH  THE  VALUE  IN  LOC  VARG. 

10E7 

9940 

* C CONTAINS  THE  TOTAL.  NO.  OF  NEW  FRAMES  TO  BE 

30E7 

9990 

* STORED. 

B MAY  BE  ANY 

SIZE  RELATIVE  TO  C 

30E7 

9960 

* 

3CE7 

AF 

9970 

FRWRD 

XRA 

A 

10EB 

B9 

9980 

CMP 

C 

* RETURN  IF  NOTHING  TO  STORE 

30E9 

ca 

9990 

BZ 

3CEA 

!C 

6000 

INR 

A 

30EB 

08 

6010 

CMP 

B 

3CEC 

02 

SE 

31 

602C 

JNC 

SETAKG 

• B<*1,  SET  PARAM-TARG 

10EF 

79 

60  30 

MOV 

A,C 

30F0 

90 

6040 

SUB 

B 

3CF 1 

F 2 

F8 

10 

6090 

JF 

PINPB 

* POS  i OF  TAKGS  AFTER  PARABOLA 

10F4 

AF 

6060 

XRA 

A 

3CFS 

Cl 

FB 

30 

6070 

JMF 

DOPE 

3CF8 

49 

6080 

PINPB 

MOV 

C,6 

30F9 

00 

6090 

DCR 

C 

10FA 

1C 

6100 

INR 

A 

30FB 

32 

FB 

36 

6110 

DCPB 

STA 

NTARGS 

* SET  FOR  N TARGS  AFTER  PARAB. 

3CFF 

79 

ol  20 

MOV 

A,C 

3CFF 

32 

FA 

36 

61  30 

STA 

PCOUNT 

* SET  1 OF  PARABOLA  POINTS 

1102 

4E 

6140 

MOV 

C.K 

* GET  PHEV  PARAM  INTO  C 

3J.C  1 

ES 

6190 

PUSH 

H 

3104 

1A 

F4 

16 

6160 

LDA 

takg  . 

3107 

91 

6170 

SUB 

c 

330b 

F 9 

6180 

PUSH 

psw 

3309 

02 

CE 

31 

6190 

JNC 

$ + 9 

330C 

2f 

6 200 

CM  A 

3300 

3C 

6210 

INR 

A 

330E 

>7 

b220 

MCV 

D,A 

* ABS (TARG-PREV)  INTO  D 

330F 

68 

62  30 

MOV 

L,  B 

3310 

2C 

6240 

INR 

L 

3331 

AF 

62  90 

XRA 

A 

1112 

67 

6260 

MOV 

H,A 

• HL-N+l  (N  IS  DIST  TO  PEAK) 

1113 

9F 

6270 

MCV 

E,A 

136 
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1 


PACE  12 


ADDR 

Bl 

B2 

B3 

E LINE  LABEL 

OPCD 

1114 

CO 

11 

12 

6260 

CALL 

JU7 

29 

6290 

DAD 

1U8 

S4 

6 100 

MOV 

U19 

SO 

6110 

MOV 

UiA 

FI 

6 320 

POP 

niB 

D2 

26 

11 

6110 

JNC 

U1E 

7C 

6 340 

MOV 

UiF 

2F 

6 ISO 

CM  A 

3120 

67 

6 360 

MOV 

Ji.21 

7D 

6170 

MOV 

U22 

2F 

6)60 

CMA 

112) 

6F 

6 190  ■ 

MOV 

1124 

21 

6400 

1NX 

n.s 

17 

64  iO 

STC 

I i 2o 

ES 

6420  FRK2 

PUSH 

11 2 7 

FS 

64)0 

PUSH 

3128 

b9 

6440 

MOV 

1129 

26 

00 

64  SC 

MVI 

)12B 

CD 

11 

12 

6460 

CALL 

1 1 2 E 

FI 

6470 

POP 

)12F 

DA 

19 

11 

64bC 

JC 

31)2 

7C 

6490 

MOV 

)1  3 3 

2F 

6S00 

Cm  A 

U 14 

67 

6S10 

V.OV 

31)r> 

70 

6S20 

MOV 

11  36 

2F 

6S10 

CM  A 

u n 

6F 

6S4C 

MOV 

11  38 

2) 

6SS0 

INX 

3139 

22 

F6 

36 

6S60  FRKl 

SHLD 

me 

El 

6S7C 

POP 

11  ID 

SI 

6S6Q 

MOV 

31  )E 

IE 

UO 

6S90 

MVI 

3140 

3A 

FA 

36 

6 600 

LDA 

114  3 

44 

6610  FWDLP 

MOV 

3144 

4D 

6620 

MOV 

314S 

19 

6b)0 

DAD 

1146 

01 

6640 

POP 

3147 

ES 

6o  >0 

PUSH 

314d 

21 

09 

00 

6660 

LX1 

3143 

19 

6670 

DAD 

314C 

01 

6690 

POP 

3140 

ES 

6690 

PUSH 

3 1 4 E 

72 

6700 

MOV 

314F 

2A 

F6 

lb 

6710 

LHLD 

31S2 

09 

6720 

DAD 

31S3 

10 

6710 

OCR 

US4 

C2 

43 

31 

6',40 

JN2 

3117 

El 

67SO 

POP 

11 18 

1A 

FB 

16 

6760 

LDA 

USB 

B7 

6770 

ORA 

use 

CH 

6780 

RZ 

USD 

4F 

6790 

MOV 

USE 

3A 

F4 

16 

6800  SETARG 

LDA 

Uol 

11 

09 

00 

6810 

LXI 

3164 

19 

6620  SETAL 

DAD 

316S 

77 

6 9)0 

MOV 

3166 

00 

6640 

DCR 

OPERAND 

DIV  • A8aUS6»(TARG-PREV)/(N*l)) 

H 

D.H  • SAVE  ASR (DELIA) «2»0UOTIENT 

£,L 

psw 

FEW  2 
A.M 

H.A 

A.L 

L»A 

H * riX  SIGN  CF  DELTA 

H • AND  SAVE  IT 

PSW  * AND  ITS  SIGN 

L.B 
H,0 

DIV  * COM PU1 E ABSIDELTA/H) 

PSW 

FRW3 

A.H 

H.A 

A.L 

L.  A 
H 

SD  • SECOND  D1FF  - -DELTA/N 

H • GET  DELTA  INTO  HL 

D.C  • PREV  PARAM  TO  DE 

E # C 

PCCUNT  • AND  PA RAD  COUNT  TO  A 

8.H 

C.L 

D 

C 

H * Y-Y+DELTA 

H.9 
0 
D 

H • ADDH-AODR+9 

M. D  • STORE  NEW  Y VALUE 

SO 

B • DELTA*DELTA+SD 

A 

FWDLP 

H • GET  ADDR  POINTER 

NTARGS  • NO.  OF  TARC  VALUES  TO  WRITE 

A 

C.A 

TARC 

C.9 

D 

K, A • SET  PARA.*i«TARG 

C 
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ADDR 

B1  D2 

B1  E 

LINE  LABEL 

OPCD 

OPERAND 

1167 

02  64 

11 

bBSO 

JNZ 

SETAL 

U6A 

C9 

6dbO 

RET 

1163 

6d7C  • 

UbB 

bbsC  * 

CCKRD 

UbB 

6B90  * 

MODIFIES  N FRAMES  BACKMAr  ! FROM  AND  INCLUDING 

1163 

6900  • 

FRAME 

I.  CURRENTLY  INDICATED  BY  HL. 

UbB 

69iO  • 

e CONTAINS  TIIE  NUMBER 

li 

U6D 

6920  • 

LOCATION  BVAL 

CONTAINS  THE  FINAL  DESIRED  VALUE 

1163 

6910  • 

FOR  FRAME  I (THE  LAST 

ONE  MODIFIED). 

UbB 

6940  * 

Oti  RETURN  $ HL 

IS  LEFT 

POINTING  TO  THE  PARAM,  FRAME 

UbB 

69 SO  « 

UbB 

7d 

6960  BCKRD 

MOV 

A.B 

• CHECK  N 

UbC 

FE  02 

6970 

CPI 

i 

UbE 

DS 

69B0 

RC 

UbF 

CA  CC 

11 

6990 

JZ 

SETIB 

• MODIFY  ONLY  THE  LAST  FRAME 

1172 

67 

7000 

ADD 

A 

il7i 

d7 

7010 

ADD 

A 

U 74 

67 

7020 

ADD 

A 

U7S 

BO 

70  JO 

ADD 

8 

U7b 

2F 

7040 

CNA 

J177 

SF 

70  SO 

MOV 

e;a 

U7d 

lb  FF 

70  60 

AVI 

0,2SS 

U7A 

11 

7070 

I NX 

D 

• DE  • -9  *N 

117B 

19 

7030 

DAO 

D 

U7C 

Sb 

7090 

MOV 

D,M 

• GET  YO,  VALUE  AT  FRAME  I-N 

U70 

ES 

7100 

PUSH 

H 

U7E 

DS 

7110 

PUSH 

D 

U7F 

3A  FS 

lb 

7120 

LDA 

OVAL 

U«2 

92 

7110 

SUB 

D 

Ub  1 

FS 

7140 

PUSH 

PS* 

• PUT  SIGN (BVAL-YC)  IN  STACK 

Ud4 

02  39 

11 

71SU 

JNC 

$♦% 

Uo7 

2F 

7160 

CMA 

UbB 

1C 

7170 

1NR 

A 

UbB 

6F 

71B0 

MOV 

L,A 

IldA 

26  OC 

* 

7190 

KV1 

H.C 

1UC 

29 

7200 

LAD 

H 

• 2*ABS (BVAL-YO ) , SIGN  IN  STK 

UbB 

29 

7210 

DAD 

H 

* ...  *16 

Use 

29 

7220 

DAD 

H 

UbF 

29 

7210 

CAC 

11 

IH'J 

29 

7240 

DAD 

II 

Uu 

>d 

7 2 SO 

I1CV 

E,D 

1192 

1C 

7260 

1 NR 

E 

Uii 

vJ  2 

12 

727C 

CALL 

MUL 

* COMPUTE  (Dt)«N*(N  + l) 

U96 

E5 

72dO 

XCHG 

U97 

Co  11 

12 

7 2 90 

CALL 

DIV 

* COMPUTE  lb ‘SECOND  D1FF 

U»A 

Fi 

7100 

POP 

PSW 

U93 

L 2 AS 

11 

.7  110 

JNC 

UCVs  ) 

UbE 

7C 

7120 

MOV 

A#li 

usr 

2F 

7110 

CMA 

1140 

0 7 

7 140 

NOV 

H , A 

UAl 

70 

7 ISO 

MOV 

A,  L 

UA2 

2F 

7 160 

CMA 

UA3 

bF 

7 170 

MOV 

L,  A 

UA4 

21 

7 IdO 

IPX 

H 

HAS 

29 

7190  BCW1 

DAD 

II 

UAb 

29 

740C 

DAO 

B 

UA7 

29 

741C 

DAD 

H 

138 
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1 


ADDR 

Bl 

B2 

B3  E 

LINE 

LABEL 

OPCD 

OPERAND 

31A8 

29 

7420 

DAD 

II 

31A9 

22 

F6 

36 

74  30 

SOLD 

SO 

• SD-29b*SECCND  DIFF 

31  AC 

01 

7440 

POP 

D 

* GET  YC  VALUE  BACK 

UAD 

IE 

OC 

7490 

MVI 

E,  0 

• (DE)-2S6»YO 

S1AF 

■’8 

7460 

MOV 

A , B 

* LOOP  COUNT  IS  N-l 

UBC 

,0 

7470 

DCR 

A 

31B1 

01 

00 

00 

7460 

LX1 

B , 0 

* III1T  OELTA-C 

31B4 

2A 

F6 

36 

7490 

BCWLP 

L1ILD 

SD 

3137 

09 

7900 

DAD 

B 

31B6 

44 

7 910 

MOV 

B,H 

* DELTA "DELTA. SC  INTO  BC 

3169 

40 

7920 

MOV 

C.L 

11BA 

19 

7930 

UAD 

D 

» Y-Y .DELTA 

UBB 

01 

7940 

POP 

D 

UBC 

E9 

7990 

PUSH 

H 

31BD 

21 

09 

00 

7960 

LX  I 

H,9 

3 ICO 

19 

7 970 

DAU 

D 

• NEW  ADDR"ADDK.9 

31C1 

Dl 

7980 

POP 

0 

3 1C  2 

El 

7990 

PUSH 

H 

31C3 

72 

7600 

MOV 

M.D 

31C4 

30 

7610 

DCR 

A 

IiC9 

C2 

34 

31 

7620 

JNZ 

BCWLP 

)1C8 

01 

7630 

PCP 

D 

• CLEAN  UP  THE  STACK 

31C9 

11 

09 

CO 

7640 

LX1 

0,9 

31CC 

19 

7690 

DAD 

D 

31CD 

3A 

F9 

36 

7660 

SET1B 

LDA 

BVAL 

• PUT  BVAL  IN  LAST  FRAME 

31D0 

77 

7670 

MOV 

M,  A 

31D1 

C9 

7600 

RCT 

3102 

7690 

• 

3102 

7700 

♦ KULPC 

3102 

7710 

* MULTIPLY  ABS 

(A)  BY 

PC, 

SIGN (A)  IS  IN  CARRY 

31D2 

7720 

* POSSIBLE  VALUES  OF 

PC 

ARE  0,1/4, 1/2, 3/4,  6 1 

31D2 

77  30 

* STORED 

KITH  ' 

THE  BIN 

PI 

TO  THE  RIGHT  OF  BIT  2 

3102 

7740 

* RETURN 

RESUL' 

T IN  A 

3102 

7790 

• (OC)  LOST, 

(BC)  6 

(HL)  RESTORED 

3102 

7760 

* 

3102 

E9 

7770 

KULPC 

PUSH 

H 

3103 

IE 

00 

7700 

MVI 

E , 0 

31D9 

02 

DB 

31 

7790 

JNC 

MPC 1 

* IF  CARRY  SET.  ... 

3106 

2P 

7800 

CMA 

3109 

3C 

7010 

1 UR 

A 

• COM PL  A,  SAVE  CARRY  IN  C 

3 10A 

10 

7420 

DCR 

E 

31  OB 

6F 

78  30 

14  PCI 

MOV 

L,  A 

HOC 

3A 

F3 

36 

7340 

LDA 

PC 

3 IDF 

IF 

7890 

KAR 

31EC 

67 

7860 

MOV 

H,  A 

31E1 

3E 

CO 

7670 

MVI 

A , 0 

31E3 

D2 

Ed 

31 

7850 

JNC 

MPC2 

31E6 

89 

7890 

ADD 

L 

31E7 

IF 

7900 

RAR 

UEc 

97 

7910 

MPC2 

MOV 

D,  A 

31E9 

7C 

7920 

MOV 

A , H 

31EA 

IF 

7930 

RAR 

31EB 

67 

7940 

MOV 

H , A 

31EC 

7A 

7990 

.MOV 

A,  D 

31E0 

02 

P2 

31 

7960 

JNC 

MPC  3 

31P0 

89 

7970 

ADD 

L 

31F1 

IF 

7980 

itAK 

139 
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ADDR 

Bl 

B2 

Bl  E 

LINE 

LABEL 

OPCO 

OPERAND 

UP2 

67 

7990 

MPC  1 

MOV 

O.A 

nr  i 

7C 

8000 

MOV 

A,  H 

I1F4 

IF 

8010 

RAR 

UPS 

7A 

8020 

MCV 

A,0 

UPo 

02 

FA 

31 

80  30 

jnc 

MPC  4 

31FS 

86 

8040 

ADO 

r_ 

UFA 

El 

60  60 

MPC 4 

POP 

H 

UFC 

1C 

8060 

INR 

E 

UPC 

cc 

8070 

RNZ 

UFO 

2F 

8080 

CMA 

UFC 

3C 

8090 

INR 

A * PESTCRE  SIGN  < 

11FF 

C9 

8100 

RET 

3210 

6110 

• 

3 2C'J 

312C 

* PUL 

SUB  ROUT  ini: 

3200 

81 30 

• KULT I PLY  (B) 

BY  (E),  lo  BIT  RESULT  IN 

3200 

6140 

• 

SEE  INTEL  ASSY  LANG  PROG  HAN.,  PACE 

3200 

B 160 

* 

HL 

NOT  DISTURBED 

3200 

8160 

• 

3200 

16 

CO 

8170 

MUL 

MVI 

0,0 

3202 

OE 

09 

8180 

MVI 

C , 9 

32C4 

7B 

1 190 

MUL2 

MOV 

A,  E 

3206 

IF 

82CC 

RAR 

3206 

6F 

6210 

MCV 

E,  A 

3207 

00 

8220 

DC  R 

C 

3206 

C o 

82  30 

KZ 

3208 

7A 

8240 

MOV 

A,  L 

320A 

C2 

CL 

32 

8260 

J*4C 

MUL3 

3200 

80 

8260 

ADD 

B 

320E 

IF 

6270 

MUU 

RAR 

320F 

67 

8280 

MOV 

D,  A 

3210 

Cl 

04 

32 

8290 

JMP 

MUL2 

3213 

8 300 

* 

321  3 

8 310 

* DIV 

SUBROUTINE 

321  3 

8 320 

* DIVIDE  (DE)/(HL),  RRESULT  IN  HL,  REN 

3213 

8 330 

* 

BC 

RESTORED,  A DESTROYED 

3213 

8 340 

• 

3213 

C6 

3 360 

DIV 

PUSH 

B 

3214 

44 

8 36C 

MOV 

B,H 

3216 

40 

8 370 

MOV 

C.L 

1216 

21 

00 

00 

8 380 

LXI 

H,C 

3219 

)E 

10 

8390 

MVI 

A, 16 

3 2 1 B 

F6 

E4CC 

DIVl 

PUSH 

PSV.’ 

321C 

29 

8410 

DAD 

33 

3210 

EB 

64  20 

XCHG 

321E 

29 

94  30 

DAD 

H 

3 2 IF 

EB 

6440 

XCHG 

3220 

D2 

24 

32 

84  60 

JNC 

D1V2 

322  3 

23 

8460 

1NX 

II 

3224 

70 

8470 

DIV2 

MOV 

A,  L 

3226 

91 

8480 

SUB 

C 

3226 

6F 

6490 

MOV 

L,  A 

3227 

7C 

3600 

MOV 

A, II 

3228 

98 

8610 

SBB 

B 

3229 

67 

8620 

MOV 

H,A 

322A 

13 

86  30 

INX 

D 

3 22B 

02 

30 

32 

8640 

JNC 

DIVl 

322E 

09 

8660 

DAD 

B 

140 


PACK  H 


ADDR 

Bl 

62 

Bl 

F LIKE 

LABEL 

OPCD 

OPERAND 

122F 

In 

6160 

OCX 

D 

1210 

FI 

3170 

OIV) 

POP 

FSK 

1211 

10 

8180 

OCR 

A 

12)2 

C2 

IB 

12 

3190 

JNZ 

CIVi 

32  11 

Cl 

8600 

POP 

0 

12)6 

KB 

B61C 

XCHG 

)2)7 

C9 

8620 

RC7 

12)6 

6610 

• 

12)6 

o640 

• 

PLOSC  TABLE 

) 2 18 

8610 

• 

PLOSIVE 

BURST 

PULSE 

DURATIONS 

)2  )d 

8660 

• 

12)8 

01 

Do7C 

PLOSC 

DU 

1 

P 

12)9 

01 

8680 

DB 

1 

T 

)2)A 

02 

6690 

Dd 

2 

K 

)2)B 

C2 

8700 

DU 

2 

KX 

12  )C 

01 

8710 

DU 

1 

e 

12)0 

01 

8720 

DB 

1 

D 

)2  )E 

0 2 

87)0 

DU 

2 

G 

12  )P 

C2 

6 740 

DB 

2 

GX 

) 240 

3710 

• 

124'' 

6760 

• 

END  OF 

SECT  5 

141 


PACE  01 


ADDR  01 

P2 

B 1 E LINE 

LABEL 

OPCD 

OPERAND 

2CCC 

0010 

• PLAY  ROUTINE 

, TARGET  TABLES,  6 NISC 

20C0 

0020 

• 

2000 

00 1C 

• SECTION 

6 OF 

THE  CSPl  SYNTHESIS  BY  RULE 

2000 

0040 

• 

2000 

C010 

• LLOYD  HICE, 

CONPUTALKER  CONSULTANTS 

2000 

0060 

• VERSION 

1.0b 

NAY  10,  1977 

2000 

0010 

• 

2000 

OOBO 

2000 

0090 

• 

2000 

01C0 

• COM  NON 

JUMP 

ADDRESS  TABLE 

2000 

0110 

« 

2000 

0120 

CON JMP 

ECU 

S . 

2000 

0110 

• 

2000 

0140 

CSRl 

C3 

1 

2001  Cl 

10 

12  0110 

JMP 

PLAY 

2005 

0160 

9LTADR 

DS 

2 

200  S 

0170 

SUE  END 

DS 

2 

2 OCA 

0180 

PVT  A 8 

DS 

2 

200C 

0190 

MATPAK 

DS 

1 

2 OCF 

0200 

« AT ERR 

DS 

1 

2012 

0210 

RULES 

OS 

3 

2011 

0220 

SETDUR 

DS 

1 

2018 

0 2 10 

RULES! 

DS 

1 

2C1B 

0240 

GENFO 

DS 

1 

201E 

0210 

CLROUF 

DS 

1 

2021 

0260 

GENPRM 

DS 

1 

2024 

0270 

HUL 

DS 

1 

2027 

02BC 

DIV 

DS 

1 

202A  Cl 

96 

12  0290 

JMP 

GETCN'S 

2020  Cl 

DO 

12  0 100 

JNP 

PCBFT 

20 1C  1C 

ii 

0110 

DW 

F1TAR 

2012  lb 

ii 

C 120 

ow 

F2TAR 

2014  94 

ii 

0110 

DM 

F3T>R 

2C!i  00 

ii 

0140 

DW 

AVHTAR 

20  la  OC 

14 

0110 

DW 

FRNTAR 

20  !A 

0 160 

• 

20  1A 

0170 

20  1A 

0180 

• 

20  1 A 

C 190 

• CONRAN 

OkIGLN  DEFINITION 

20  1A 

04  00 

• 

20 1A 

0410 

ORG 

CONJNP*ilOCB 

HOC 

0420 

COM PAN 

ECU 

$ 

1100 

04  10 

• 

1100 

C440 

• CSR1  SYS1EN 

RAM  SPACE  DEFINITION 

1100 

0410 

• 

110C 

0460 

MATPTR 

DS 

2 

1102 

0 4 70 

NtGEND 

DS 

2 

1104 

0480 

MATRIX 

ECU 

$ 

1104 

0490 

HATLEM 

ECU 

91 

H04 

0100 

PtICODE 

DS 

NATLEN 

116  1 

Clio 

FEATA 

OS 

MAT LEN 

HC2 

0120 

PEATB 

DS 

NATLEN 

1621 

OHO 

STRES 

DS 

MATLEM 

16bO 

0140 

DUR 

DS 

NATLEN 

16DP 

0110 

hatenc 

ECU 

i 

160f 

0160 

BUPPTR 

CS 

2 

16E1 

0170 

• 

142 
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ADDR  Bl  B2  B3  E LINE  LABEL  OPCD  OPERAND 


16E1 
36E1 
)6El 
36E1 
36E  2 
16E1 
36E4 
3oES 
16E6 
HE? 

IbEo 
36E9 
HE9 
36EA 
16EB 
36EC 
3bE0 
HEE 
16EF 
HFC 
36F 1 
36F1 
36F2 
36F3 
36F4 
36F4 
36F  4 
36F4 
16F4 
36F4 
36F7 
3bF7 
36F7 
36F7 
32SO 
3 2 SO 
32SC 
3 2 SO 
32SO 
32SC 
3 2 SO 
32SO 
32SO 
3 2 SO 
32SC 
3 2 SO 

3 2 SO  23  F4  36 
S2S3  3b  DJ 

3255  23 

3256  23 

3257  14  C9 
32S9  2*  06  20 
3 2 SC  SE 

3 2 SO  23 
32SE  Si 
J2SF  23 
1260  CD  77  12 


0S8C 

* THE  NEXT  17  LOCATIONS 

US90 

* WITH 

SECTION 

S.  THEY 

0600 

061C 

• 

OCODE 

DS 

1 

0620 

OFEATA 

cs 

1 

06  30 

OFEATB 

DS 

1 

0640 

ODUK 

DS. 

1 

06SC 

OCID 

DS 

1 

0b6C 

ORANK 

DS 

1 

0670 

CPCT 

OS 

1 

0680 

OTINES 

os 

1 

0690 

0700 

* 

CODEX 

DS 

1 

0710 

FfcATAX 

DS 

1 

C720 

FEATBX 

DS 

1 

07  30 

DURX 

DS 

1 

074C 

C1DX 

DS 

1 

07  SO 

RANKX 

DS 

1 

0760 

PCTX 

DS 

1 

077C 

TIMESX 

OS 

1 

0780 

0790 

• 

3T 

DS 

1 

0800 

FT 

DS 

1 

0810 

PC 

OS 

1 

0820 
06  30 

* 

ftftft 

0840 
08  SO 

* 

• PLAY 

(LOCAL) 

RAN  WORK. 

0860 

0870 

• 

CTO 

DS 

3 

0880 

0890 

• 

ftftft 

0900 

0910 

• 

ORG 

COMJMP+ 

0920 

SECTAD 

ECU 

S 

0930 
094  0 
09S0 

ft 

ft 

• DEFINITIONS  FOR  PLAY 

0960 

0970 

ft 

CTBASE 

ECU 

OECH 

0980 

CHANSW 

EQU 

IS 

0990 

1000 

ft 

1010 

1020 

ft 

* PLAYBACK  SUBROUTINE 

10  30 
1040 

• 

PLAY 

LXI 

H,CTO 

lose 

MVI 

M.  CD  3H 

1060 

INX 

H 

1070 

1 NX 

H 

1030 

MVI 

M.0C9H 

1090 

LHLD 

BUFADR 

1100 

MOV 

E,M 

me 

INX 

H 

1120 

MOV 

D,M 

ill*! 

INX 

H 

1140 

CALL 

CTOUT 

• SPACE  rCR  CT-1  OUTPUT  CODE 


• GET  rKAME  COUNT  (LOW  BYTE) 

• (AND  HIGH  BYTE) 
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ADDR 

B1 

B2 

B 9 

E LINE 

LABEL 

OPCD 

OPERAND 

526  9 

IB 

1160 

DCX 

D • COUNT  THAT  FRAME 

5264 

9E 

FF 

1160 

MVI 

A, 266 

5266 

D 9 

EF 

1170 

OUT 

CTBASE+CHANSW  • TURN  ON  CT-i 

5268 

CO 

77 

52 

1180 

PLALP 

CALL 

CTCUT  • PLAY  THE  BUFFER 

5268 

CO 

dA 

52 

1190 

CALL 

DLY1C  * BAIT  1C  MSEC 

52oE 

IB 

1200 

DCX 

D 

526F 

7A 

1210 

MOV 

A,  D 

5270 

B 5 

1220 

ORA 

E 

5271 

C2 

68 

92 

1290 

JNZ 

PLALP  • LOOP  UNTIL  DUFFER  DONE 

5274 

05 

EF 

1240 

OUT 

CTBASE+CIIANSW  • TURN  OFF  CT-1 

5276 

C9 

1260 

RET 

5277 

1260 

• 

5277 

1270 

* 

CTOUT  PLAYS  ONE  DATA  FRAME  FROM  THE  BUFFER 

5277 

1280 

• 

ON  ENTRY:  HL 

FOISTS  TO  AV  OF  THE  FRAME  TO  PLAY 

5277 

1290 

* 

SUBh  CTO  HAS  BEEN  SET  UP  AS  1 

5277 

1 500 

• 

CTO  OUT  Ci'BASE 

5277 

1910 

• 

RET 

5277 

19  20 

• 

(OE) 

ARE  UNCHANGED 

5277 

15  50 

• 

5277 

06 

EC 

1940 

CTCUT 

MVI 

B.CTPASE  * RE-1NITIALIZE  CTO  ROUTINE 

5279 

OE 

09 

i960 

MVI 

C,  9 • 

527B 

7b 

1 160 

CTLP 

MOV 

A,  8 

)2.’C 

52 

FS 

56 

1 570 

STA 

CTO+1 

527F 

7E 

1 980 

MOV 

A , M 

)26  J 

CD 

F 4 

56 

19)0 

CALL 

CTO  • OUTPUT  THE  PARAMETER 

5265 

29 

1400 

1NX 

H 

5204 

04 

1410 

INR 

B 

5266 

CD 

1420 

DCR 

c 

5286 

C2 

7B 

12 

1410 

JNZ 

CTLP  * GO  AROUND  9 TIMES 

526) 

C9 

1440 

RET 

528A 

1460 

• 

526A 

1460 

• 

DELAY  10  MILLISECONDS  (ASSUMES  2MHZ  CLOCK) 

528A 

1470 

• 

(A) 

CHANGED, 

ALL  ELSE  RESTORED 

52SA 

1480 

• 

52aA 

E6 

1490 

CLY10 

PUSH 

H 

)2oB 

21 

20 

09 

1600 

LX1 

11,800 

52BS 

2B 

1610 

OCX 

H 

528F 

7C 

1620 

MOV 

A,H 

5290 

B6 

16)0 

ORA 

L 

52)1 

C2 

8E 

92 

1640 

JNZ 

J-5 

5294 

El 

1660 

POP 

H 

5296 

C9 

1660 

HLT 

52)6 

1670 

• 

5296 

1680 

• 41 

5296 

16)0 

• 

5296 

160C 

• 

GETCNS  SUBROUTINE 

5296 

1610 

• 

get 

MISC  CONSTANTS  PERTAINING  TO  THE  CURRENT  PHOH 

5266 

16  20 

• 

PUT 

DATA  INTO 

i TABLE  BEGINNING  AT  (DE) 

52)6 

16  50 

• 

ALL  REGISTERS  MOD1FIEC 

5296 

1640 

• 

5 2)6 

2A 

00 

56 

1660 

CETCNS 

LHLD 

MATPTR 

5299 

01 

^F 

00 

1660 

LXt 

B , MATLEN 

52)C 

7E 

1670 

MOV 

A , M • GET  CURRENT  PHON  CODE 

5290 

12 

1680 

STAX 

D 

92)5. 

09 

1690 

DAD 

e 

929F 

19 

1700 

I NX 

D 

5 2a  C 

7E 

1710 

MOV 

A.M  • GET  FEATA 
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ADDA 

B1 

B2 

B)  E 

LINE 

LABEL 

OPCD 

OPERAND 

32A1 

12 

1720 

STAX 

D 

32A2 

OS 

1730 

DAC 

B 

32AJ 

1) 

1740 

1NX 

D 

32A4 

7E 

17  SO 

MOV 

A#M 

• GET  FEATb 

WAS 

12 

1760 

STAX 

D 

32A6 

(t 

1770 

DAO 

B 

32A7 

09 

1780 

DAO 

B 

3246 

13 

1790 

1KX 

D 

WAS 

7E 

1800 

MOV 

A,  M 

* GET  DURATION 

WAA 

12 

1810 

STAX 

D 

WAB 

13 

1820 

I NX 

D 

WAC 

2A 

00 

IS 

1 6 30 

LHLD 

MATP1K 

* GET  CODE  AGAIN 

WAF 

4E 

1640 

MOV 

C,M 

1200 

ot 

00 

18  SO 

KVI 

B . 0 

W32 

21 

46 

34 

1660 

LX1 

H.RAPC1D 

wus 

OB 

1670 

DAO 

B 

12B6 

7E 

1360 

MOV 

A,M 

• GET  RAMK/PC/ID  BYTE 

WB7 

6F 

1890 

MOV 

L#  A 

Wue 

E6 

07 

1900 

AN  1 

7 

WBA 

12 

1910 

STAX 

D 

* MASK  6 STORE  CID 

WBB 

13 

1920 

I NX 

D 

WBC 

60 

19  30 

MOV 

H , B 

32BD 

29 

194Q 

DAC 

H 

WBE 

29 

19S0 

DAO 

H 

W3F 

29 

1960 

DAO 

H 

wco 

7C 

1970 

MOV 

A , H 

32C1 

12 

1960 

STAX 

D 

• STORE  RANK 

WC2 

13 

1990 

1NX 

D 

32C3 

60 

2000 

MCV 

H,B 

WC4 

29 

2010 

DAD 

H 

wcs 

2S 

2020 

DAD 

H 

WCo 

7C 

20  30 

MOV 

A#  h 

WC7 

12 

2040 

STAX 

D 

* SHIFT  6 STORE  PERCENT 

WCb 

13 

20SO 

1NX 

D 

WC9 

21 

84 

34 

2060 

LXI 

H.TTIKES 

32CC 

09 

2070 

DAD 

B 

WCO 

7L 

2030 

MOV 

A , M 

• GET  TRANSITION  TINES  BYTE 

WCE 

12 

2090 

S1AX 

D 

WCF 

C9 

2100 

BET 

woe 

2110 

• 

WDO 

2120 

* 

PCBFT  SUBROUTINE 

1200 

2130 

• 

GET  ! 

PERCENT  AND  TINE 

VALUES  FROM  .4ATR1X  ARRAYS 

WOO 

2140 

• 

SET 

PC-PCVF(CIDX,0C1D) 

woo 

21S0 

* 

SET 

BT-TAVF (OCID) 

WDO 

2160 

• 

SET 

FT*TAVF (CICX) 

3200 

2170 

• 

ON  ENTRY:  B«0 

TO  GET 

AV/AH  INFO 

3200 

2160 

• 

DIC 

TC  GET 

AF  INFO 

3200 

2i90 

• 

3200 

3A 

ES 

36 

2200 

PCBFT 

LDA 

OCIL 

320} 

4F 

2210 

MOV 

C,A 

3204 

67 

2220 

ADD 

A 

320S 

ill 

22  30 

ACD 

C 

3206 

67 

2240 

ADD 

A 

3207 

61 

1 

2 2 SO 

ACD 

C 

32D<3 

S7 

2260 

MOV 

D,A 

320S 

3A 

ED 

36 

2270 

LDA 

CICX 

woe 

82 

2280 

ADD 

D 

PACE  OS 


ADDR 

B1 

32 

• 1 l 

LIKE 

LABEL 

OPCD 

OPFRANC 

1200 

sr 

2293 

NCV 

E»  A 

120E 

14 

02 

2100 

MVI 

D,C 

• PC VF  INDEX  IS  7»0CI0«C1CX 

12E0 

21 

CO 

14 

2110 

LX1 

H.PCVF 

12E) 

19 

2120 

DAD 

D 

12E4 

AF 

2110 

XRA 

A 

12ES 

30 

2)40 

ORA 

B 

12E6 

7t‘ 

2 ISO 

NCV 

A,M 

12E7 

CA 

EC 

12 

2 160 

JZ 

$♦6 

* KEEP  AV/AH  X VALUE 

12EA 

ir 

2)70 

KAh 

)2EB 

IF 

2160 

RAR 

12  EC 

IF 

2 190 

RAP 

• 

• SHIFT  OVER  TO  AF  PC  VALUE 

12ED 

£6 

07 

2400 

AN  1 

7 

uef 

12 

FI 

16 

2410 

S7A 

PC 

• STORE  PERCENT  VALUE 

I2E2 

S» 

2420 

HCV 

E,C 

* USE  OLD  CIO  AS  TINE  TAB LI  INDEX 

12P1 

21 

FI 

14 

24)0 

LX  I 

H.TAVP 

12Fw 

E8 

2440 

XCHG 

12F7 

19 

24  SO 

DAD 

0 

)2Fi> 

AF 

2460 

XRA 

A 

wry 

JO 

2470 

OHA 

B 

12FA 

7C 

243C 

MOV 

A*  Ft 

I2FS 

CA 

Cl 

II 

2493 

JZ 

S*b 

• KEEP  AV  TINE  CONSTANTS 

12FC 

IF 

2 SCO 

RAP 

12FF 

IF 

2S1C 

RAH 

1 ICO 

IF 

2S23 

RAR 

* 

* SHIFT  OVEk  TO  AF  CONSTANTS 

1101 

Eu 

07 

2SI0 

AM 

7 

1JC  I 

12 

FI 

)« 

2S40 

STA 

BT 

• STORE  BACKWARD  TIME  CONSTANT 

nos 

IA 

E0 

16 

2SS0 

LDA 

C1CX 

t toy 

uF 

2S60 

*CV 

L.A 

110A 

26 

CC 

2S73 

MVI 

H.3 

* USE  NEW  CID  TO  INDEX  TA VF 

ncc 

19 

2S8C 

DAD 

0 

l ro 

AF 

2S9C 

XRA 

A 

1 10  E 

ao 

2603 

ORA 

B 

1 ICF 

7E 

2610 

MOV 

A,M 

1110 

CA 

16 

11 

2620 

JZ 

S*b 

mi 

IF 

26)0 

RAR 

1114 

»F 

2640 

RAR 

1US 

IF 

2oSC 

RAR 

lllt> 

E6 

07 

2660 

All  I 

7 

112B 

12 

F2 

16 

2o70 

STA 

FT 

• STOKE  FORWARD  TIME  CONST. 

1118 

C9 

2680 

RET 

in: 

269C 

• 

1*1C 

2700 

• Fl 

TARGET  TABLE 

in: 

271C 

• 

1 u: 

00 

2720 

F1TAR 

DD 

• 

SPACE 

i no 

00 

27  10 

CR 

C 

• 

PERIOD 

lllE 

CO 

2740 

D8 

128 

• 

COMMA  (PAISF) 

nir 

oc 

2 7 SO 

03 

0 

• 

CUEST 

in: 

CO 

* 

2760 

OB 

0 

• 

1 (TERMINATOR) 

1121 

86 

277C 

OB 

182 

• 

IY 

1122 

91 

2760 

DB 

147 

• 

IH 

1121 

71 

2"T90 

DB 

11) 

• 

EH 

1)24 

Sd 

2800 

DB 

88 

• 

AE 

J12S 

IS 

2alC 

DB 

dS 

• 

AA 

1124 

67 

2620 

LB 

101 

• 

AH 

1127 

60 

23 1C 

CC 

109 

• 

>0 

1122 

77 

2340 

DB 

119 

• 

OW 

1129 

ys 

23SC 

DB 

149 

• 

UH 
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ACOft 

Bl  02  03 

E LINE 

LABEL 

OPCD 

OPERAND 

3I2A 

At 

2860 

DB 

168 

ux 

1)23 

48 

2670 

DD 

72 

AX 

3 32C 

8b 

2d  80 

OB 

1 16 

IX 

3 120 

30 

2o4C 

CQ 

141 

ER 

1 32E 

AF 

2900 

08 

173 

UX 

3 32F 

77 

29iO 

DU 

119 

OH 

3 1 30 

33 

2920 

DO 

o > 

AW 

3)11 

33 

29  10 

• DB 

S3 

AY 

3)12 

613 

2940 

DO 

104 

OY 

11)1 

71 

2430 

DB 

111 

EY 

31)4 

80 

2960 

CB 

141 

RX 

3)33 

93 

2970 

DB 

149 

LX 

me 

AB 

2980 

DB 

171 

KX 

13)7 

38 

2990 

DB 

132 

YX 

mb 

A3 

3000 

DB 

163 

KK 

1134 

00 

3010 

DO 

C ' 

EL 

3 1 )A 

00 

1020 

CO 

0 

EM 

3 ) )B 

00 

10  30 

CO 

0 

CN 

me 

A6 

1040 

CO 

168 

it 

13)0 

A2 

3030 

OB 

162 

L 

mo 

El 

3C60 

CB 

179 

W 

mr 

C2 

1070 

OB 

194 

Y 

3 1 40 

EF 

3080 

CO 

2)9 

M 

3)41 

EF 

3090 

DB 

239 

M 

3 142 

EF 

3100 

DB 

2)9 

NX 

3 34  ) 

BE 

1110 

DB 

140 

P 

3)14 

EE 

312C 

DB 

1 9C 

T 

3K3 

DE 

3130 

DB 

190 

X 

3 34 

BE 

1140 

CB 

190 

KX 

3)47 

BE 

3130 

DB 

190 

B 

3 3 44 

BE 

3160 

DB 

190 

D 

1149 

BE 

3170 

DB 

19C 

a 

3 14A 

BE 

3180 

DB 

190 

ax 

3 313 

BE 

3190 

DB 

190 

ex 

134C 

EE 

3200 

DB 

190 

F 

3 34D 

BE 

1210 

DB 

190 

TH 

1 140 

BE 

3220 

DB 

19C 

S 

1 UF 

BO 

32)0 

DB 

190 

Sk 

)3r.C 

BE 

3240 

Dd 

190 

V 

3 131 

SC 

1230 

DB 

190 

OH 

1132 

BE 

1260 

DB 

190 

Z 

3)3) 

SE 

1270 

ca 

190 

ZH 

3 334 

00 

1280 

DB 

0 

CK 

3 333 

00 

3290 

DB 

0 

JH 

3 33o 

<)C 

3 ICO 

06 

126 

HH 

3)37 

80 

1110 

DO 

128 

0 

3333 

3120 

3 338 

1110 

• r2 

TAHGET  TABLE 

3338 

1)40 

# 

1)38 

CO 

3330 

f 21 A ft 

08 

0 

• SPACE 

13'  ’ 

00 

1161 

DB 

0 

* PERIOD 

3 33A 

80 

3170 

Dfl 

123 

* COMMA  (PAUSE) 

3 33b 

oc 

3 38C 

DA 

C 

* CUEST 

113C 

CO 

1390 

00 

0 

• 4 (TEP.’ISATCR) 

3)30 

38 

3400 

DB 

tt* 

• IY 

3 33E 

•A 

3410 

00 

let 

• 1H 

113P 

73 

3420 

DB 

n? 

• EH 

147 


PAGt  07 


AODR 

Cl  B2  B 3 

E LINE  LABS' 

CPCD 

OPERAND 

mo 

71 

14  1C 

DB 

id 

AE 

1)61 

1440 

DB 

160 

A/. 

1 162 

AC 

1460 

DO 

160 

AH 

1 16  1 

03 

1460 

DB 

179 

AO 

1)64 

C2 

1470 

L8 

194 

Oh 

1)66 

Uu 

1430 

DB 

132 

UH 

1166 

93 

1440 

DB 

166 

UW 

1167 

AC 

1600 

DB 

160 

AX 

1 163 

79 

1610 

DB 

121 

IX 

) 164 

±2 

1620 

DO 

146 

ER 

))6a 

BO 

1610 

DB 

141 

UX 

1 )bU 

C2 

1640 

DE 

194 

OH 

) 16C 

96 

1660 

DB 

160 

AW 
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64 

7C20 

DB 

84  • 

V 

MB9 

64 

70 1C 

DB 

84  • 

DH 

MBA 

64 

7040 

DB 

84  • 

Z 

14BB 

64 

7060 

DB 

84  • 

ZH 

M3C 

CC 

7060 

DB 

C • 

CH 

M3D 

CO 

7C7C 

DO 

0 • 

JH 

143E 

OA 

7080 

D3 

10  • 

HH 

MBF 

OA 

7090 

DB 

10  • 

0 

MCC 

7100  • 

MCO 

7110  • 

AF  PC/AV  PC  APEAY,  PERCENT  CFOSSING  VALUES 

MCC 

7120  • 

(BITS 

)-6)/l2 

» AF  PERCLNT  BOUNDARY  XING  VALUE 

MCC 

71 JC  • 

(BITS 

0-21/4 

• AV  PERCENT  BOUNDARY  XING  VALUE 

MCC 

7140  • 

MCI 

24 

7160  PCVF 

DB 

12+4 

» OLD  CID-0,  NEW  CID-0 

MCI 

C9 

7160 

DB 

8+1 

* OLD  CID-C,  NEW  CID-1 

MC2 

CC 

7170 

DB 

0 

♦ * "2 

MCI 

00 

7180 

OB 

0 

* ETC. 

MC4 

09 

7190 

D3 

8 + 1 

MCS 

09 

72CO 

DB 

8 + 1 

MC6 

09 

7210 

DO 

8+1 

MC7 

09 

7220 

DB 

8 + 1 

• OLD  CID-1,  NEW  CIO-O 

MC» 

24 

72)0 

DB 

12  + 4 

* 1 

MC9 

12 

7240 

DB 

16  + 2 

1 

MCA 

12 

726C 

DB 

16+2 

MCB 

12 

7260 

DB 

16  + 2 

MCC 

14 

7270 

CO 

16+4 

MCD 

24 

728C 

DB 

12  + 4 

MCE 

CC 

7290 

DB 

0 

• OLD  -2,  NEK  -0 

MCF 

12 

7)00 

CB 

16+2 

MDC 

24  . 

7 11C 

DB 

)2+4 

1 401 

CO 

7 12C 

03 

0 

1402 

12 

71)0 

DB 

16+2 

MD 1 

12 

7)40 

OB 

16+2 

1404 

12 

7 160 

CB 

16+2 

1406 

00 

7)60 

DB 

0 

• 1,  0 

MD6 

12 

7)70 

DB 

16+2 

1407 

00 

7)80 

DO 

0 

Moa 

24 

7)90 

DO 

12  + 4 

MD9 

12 

74C0 

DB 

16+2 

MDA 

12 

7410 

DB 

16+2 
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ACER 

El  B2 

El  E LINE  LABEL 

OPCC 

OPERAND 

I40B 

12 

7420 

DB 

16  + 2 

HOC 

09 

7410 

DO 

8+1  • 

HDD 

12 

7440 

DB 

16  + 2 

MCE 

12 

74  90 

DB 

16+2 

I4DF 

’2 

7460 

DB 

16+2 

UEG 

24 

7470 

DB 

12+4 

34E1 

24 

7480 

98 

12+4 

I4E2 

12 

7490 

DB 

16+2 

HE  3 

09 

7900 

DD 

8+1 

I4E4 

14 

7910 

DB 

16  + 4 

I4E9 

12 

7920 

DB 

16  + 2 

UE« 

12 

7910 

DD 

16+2 

34E7 

22 

7940 

DB 

12+2 

14E8 

24 

7990 

CD 

12+4 

34E9 

14 

7960 

CB 

16  + 4 

I4EA 

09 

7970 

DB 

8+1 

J4EB 

24 

793C 

OB 

12  + 4 

34EC 

12 

7990 

DO 

16+2 

1 4 ED 

12 

76C0 

DO 

16+2 

14EE 

12 

7610 

DB 

16+2 

34EF 

14 

7o2C 

DB 

16+4 

MFC 

24 

7610 

DB 

12  + 4 

MF1 

7640  • 

!4F1  76">0  • AF/AV  TRANSITION  TIME  TABLE 


MF1 

7660 

• (BITS  1-91/8 

- AF  TRANSITION  TIME  IN  FRAMES 

14F1 

7670 

• (BITS  0-2)  - 

AV  TRANSITION  TIME  IN  FRAMES 

14F1 

00 

7680 

TAVF  DB 

0 

* CIO-O 

1 IF  2 

CB 

7690 

DB 

8 + 1 

• -1 

14F 1 

00 

7700 

DB 

0 

• -2 

14F4 

00 

?7iC 

DB 

0 

• -1 

14F9 

18 

7720 

DB 

24+0 

» -4 

I4F6 

IB 

77  10 

DB 

24  + 1 

• -9 

14F7 

OB 

7740 

D8 

8+) 

• "6 

34F8 

7790 

* 

I4F8 

7760 
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P-3  FLEET  PILOT 
QUESTIONNAIRE 

This  questionnaire  has  been  prepared  by  a Thesis 
student  in  the  Aeronautical  Engineering  Curriculum  at  the 
Naval  Postgraduate  School,  Monterey,  California.  The  general 
topic  of  the  Thesis  deals  with  aircraft  warning  systems;  those 
in  the  current  state  of  the  art  and  those  proposed  for  future 
aircraft.  This  questionnaire  specifically  deals  with  the  P-3 
Orion  aircraft.  Part  One  deals  with  the  current  system,  its 
strengths  and  weaknesses.  Part  Two  is  concerned  with  proposals 
for  future  P-3  cockpit  designs.  Some  questions  require  brief 
written  answers.  Please  do  not  spend  too  much  time  on  these. 
Incomplete  sentence  structure  is  acceptable.  Just  ensure  your 
idea  is  there.  You  are  also  asked  to  complete  the  following 
items  that  we  may  have  a good  Idea  of  your  experience  level. 
This  does  not  mean  we  will  ignore  "low  time  JO's",  however. 

A cockpit  must  be  designed  to  adequately  accomodate  all 
experience  levels  of  pilots,  and  we  want  to  knew  what  each 
type  of  pilot  feels  about  the  P-3.  The  name  is  optional,  of 
course,  but  would  help  us  to  recontact  you  in  the  event  one  of 
your  ideas  merits  further  consideration  and/or  requires  clari- 
fication. Also  we  would-  like  to  give  credit  where  It  is  due. 

If  you  have  any  comments  or  additional  ideas  in  this  area  not 
covered  by  this  questionnaire,  please  feel  free  to  use  any 
free  space  for  your  comments  or  attach  an  additional  sheet  if 
necessary. 


NAME  

AIRCRAFT  QUALIFICATIONS 

P-3  QUALIFICATIONS  

PREVIOUS  SQUADRON  TOURS 

FLIGHT  TIME. IN  P-3  

TOTAL  FLIGHT  TIME 


r — 1 


PART  1 


The  questions  in  this  part  are  concerned  with  the 
adequacy  of  the  current  instrunents/warning  systems  in  the 
P-3  aircraft. 


1.  Do  you  feel  that  the  current  instrument/warning  system  in 
the  P-3  is: 

a)  more  than  adequate? 

b)  adequate? 

c)  could  be  improved  upon? 

2.  What,  if  any,  instrument/warning  devices  would  you  replace 
and  with  what? 

E 


3.  What  additional  instruments  do  you  feel  would  significantly 
improve  the  safety  and/or  instrument  flight  capabilities 
of  the  P-3? 


4. 


5. 


How  do  you  feel  about  the  placement  of  the  instruments  in 
the  P-3  cockpit? 

a)  excellent  - no  problems  with  position 

b)  acceptable  - only  a few  instruments  are  inconveniently 

placed 

c)  marginal  - many  instruments  are  inconvenient 

d)  unacceptable  - critical  instruments  are  not  readily 

accessible  in  certain  circumstances 

If  your  answer  to  question  4 was  c)  or  d),  please  briefly 
explain  your  answer.  List  the  instruments  in  question,  and 
the  particular  instance  when  their  placement  would  make  them 
difficult  to  read. 


6.  Do  you  have  any  other  comments  concerning  the  current 
instrument/warning  system  in  the  P-3? 
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PART  2 

The  second  part  of  this  questionnaire  is  concerned 
with  possible  devices  which  may  be  included  in  future  P-3 
models . 


1.  Recognizing  the  fact  that  a pilot  or  flight  engineer  may 
be  able  to  gain  valuable  information  from  an  instrument 
due  to  its  relative  needle  position,  how  do  you  feel  about 
replacing  all  dial  guages  with  digital  readouts? 

a)  don't  like  the  idea  - requires  each  individual 

guage  be  read  and  takes  too 
much  time 

b)  think  its  a good  idea  - like  the  accuracy  of  the 

digital  readouts 

c)  no  opinion  either  way 

d)  other  (please  explain) 


2.  Suppose  all  dial  guages  were  replaced  with  digital  readouts, 
the  numerals  of  which  changed  color  according  to  the 
following  code: 

GREEN  - normal  range 

YELLOW  - outside  normal  range,  but  still  safe 
RED  - danger  zone 

Now  how  would  you  feel  about  these  instruments? 

a)  still  don't  like  the  ide3 

b)  didn't  like  it  before,  but  do  now 

c)  like  the  digital  readouts,  but  don't  think  the 
color  code  is  necessary 

d)  like  digital  readouts  more  now  because  of  the 
color  code 


3.  If  a Heads  Up  Display  were  proposed  for  the  P-3,  what 

information  would  you  desire  it  present  to:  a)  the  pilot?, 
b)  the  copilot? 
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4.  Do  you  feel  the  HUD  should  be  projected  on  the  side  as 
well  as  the  forward  windshield?  Why? 


5.  Do  you  feel  It  would  be  advantageous  to  have  the  HUD 

Incorporate  the  Master  Caution  lights  (i.e.,  when  a Master 
Caution  light  illuminates,  it  is  also  repeated  on  the  HUD) 


Assuming  that  a computer  could  be  designed  which  would 
be  capable  of  monitoring  all  flight  systems  and  parameters 
(engine  performance,  pressurization,  electrical  system,  etc.) 
and  be  linked  to  the  navigation  system  so  that  it  would  "know" 
at  all  times  the  position  of  the  aircraft,  consider  the 
following  questions: 


6.  If  the  computer  could  perform  certain  emergency  procedures 
for  the  pilot,  which  would  you  prefer  it  be  allowed  to 
ha ndle? 


7.  Which  would  you  not  allow  the  computer  to  handle  under  any 
circumstances? 


8.  Which  would  you  allow  it  to  perform  only  with  pilot 

approval  (such  approval  to  be  given  by  alphanumeric  code 
or  spoken  into  a microphone)? 
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9.  How  would  you  prefer  the  computer  warn  the  pilot  of 
Impending  failures  or  abnormal  readings? 

a)  by  a printed  message  on  a CRT 

b)  by  speaking  the  message  (assume  the  computer  can  be 
made  to  "talk"  in  an  easily  recognizable  "voice") 

c)  both  of  the  above  methods 

d)  other  (please  explain) 


10.  How  would  you  feel  about  a system  where  the  computer  had 
primary  control  of  the  landing  gear  and  flap  system? 
Assume  that  the  functions  were  voice  controlled  and  the 
computer  would  not  allow  gear  or  flap  extension  above 
limit  airspeeds.  Also  assume  that  the  current  system 
remained  as  a mechanical  backup. 


a)  strongly  oppose  the  concept  - too  dangerous 

b)  like  the  idea  - the  computer  would  lower  the  geat 

and/or  flaps  when  called  for  and 
not  miss  the  call 

c)  no  opinion 

d)  other  (please  explain) 


11.  Would  you  prefer  that  the  computer  be  programmed  to  lower 
the  gear  and  flaps  as  the  aircraft  approached  the  ground? 
Assume  the  system  were  armed  only  below  500  feet  and  when 
combinations  of  low  a irspeed/power  settings  indicated  to 
the  computer  that  the  aircraft  was  being  landed.  (Obviously, 
this  is  designed  to  prevent  gear  up  landings.  Comments, 
please . ) 

a)  don't  like  the  idea  (Why?) 

b)  like  the  idea  because  it  would  prevent  gear  up 
landings 

c)  like  the  idea  because  it  would  reduce  pilot  workload 

d)  other  (please  explain) 
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-■ 


12.  Briefly  describe  in  the  following  space  any  ideas  you  might 
have  concerning  cockpit  design.  Suggestions  are  specifi- 
cally requested  for  improvements  in  cockpit  instrumentation/ 
warning  devices,  items  which  you  would  like  to  see  delegated 
to  a computer  (with  or  without  pilot  approval),  and  anything 
which  would  reduce  pilot  workload  in  an  emergency  situation. 
Also  use  this  space  if  you  did  not  have  enough  room  to 
answer  any  of  the  previous  questions.  Be  sure  to  number 
your  answers  appropriately. 


l6l 
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